Chip 2004 October/CMCD1004.ISO/Software/Shareware/Programare/gpssdk/GPS.NET Global Positioning SDK 1.4.6.msi/Data1.cab/MainForm.vb3

Text File | 2004-08-25 | 113.5 KB | 2,229 lines

' **************************************************************************
' ****
' ****   GpsReceiver.NET Global Positioning SDK Example 1
' ****   A demonstration of GpsReceiver.NET's major features.
' ****
' ****   For assistance with your GPS device or for troubleshooting:
' ****
' ****          http://www.gpsdotnet.com/support
' ****          [e-mail]
' ****
' ****   To view known product issues & updates in the Knowledge Base:
' ****
' ****          http://www.gpsdotnet.com/kb
' ****
' ****   For pricing information & online ordering:
' ****
' ****          http://www.gpsdotnet.com/purchase
' ****
' ****   This source code is considered public domain and may be re-used
' ****   in your own applications.
' ****
' *************************************************************************
' ****
' ****   NOTE: Since GpsReceiver.NET is multi-threaded, the Invoke() method is
' ****   used frequently to make sure that updates to form controls occur
' ****   on the form's thread.  This prevents the application from locking.
' ****   up, especially for Compact Framework apps.  For more information,
' ****   refer to the Knowledge Base.
' ****
' *************************************************************************

Imports StormSource.Gps

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call
    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    Friend WithEvents StartButton As System.Windows.Forms.Button
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents StatusBar As System.Windows.Forms.StatusBar
    Friend WithEvents Latitude As System.Windows.Forms.Label
    Friend WithEvents Longitude As System.Windows.Forms.Label
    Friend WithEvents Direction As System.Windows.Forms.Label
    Friend WithEvents Altitude As System.Windows.Forms.Label
    Friend WithEvents Speed As System.Windows.Forms.Label
    Friend WithEvents Bearing As System.Windows.Forms.Label
    Friend WithEvents SatelliteList As System.Windows.Forms.ListView
    Friend WithEvents SatelliteID As System.Windows.Forms.ColumnHeader
    Friend WithEvents SatelliteElevation As System.Windows.Forms.ColumnHeader
    Friend WithEvents SatelliteAzimuth As System.Windows.Forms.ColumnHeader
    Friend WithEvents SatelliteSignalStrength As System.Windows.Forms.ColumnHeader
    Friend WithEvents StopButton As System.Windows.Forms.Button
    Friend WithEvents LocalTime As System.Windows.Forms.Label
    Friend WithEvents FixObtained As System.Windows.Forms.Label
    Friend WithEvents FixQuality As System.Windows.Forms.Label
    Friend WithEvents UnrecognizedSentences As System.Windows.Forms.ListBox
    Friend WithEvents MagneticVariation As System.Windows.Forms.Label
    Friend WithEvents ActiveSatellites As System.Windows.Forms.Label
    Friend WithEvents FixedSatellites As System.Windows.Forms.Label
    Friend WithEvents LocalTimeTimer As System.Timers.Timer
    Friend WithEvents TrackedSatellites As System.Windows.Forms.Label
    Friend WithEvents FixMode As System.Windows.Forms.Label
    Friend WithEvents FixMethod As System.Windows.Forms.Label
    Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
    Friend WithEvents DownloadWaypointButton As System.Windows.Forms.Button
    Friend WithEvents RecognizedSentences As System.Windows.Forms.ListBox
    Friend WithEvents MeanDilutionOfPrecision As System.Windows.Forms.Label
    Friend WithEvents VerticalDilutionOfPrecision As System.Windows.Forms.Label
    Friend WithEvents HorizontalDilutionOfPrecision As System.Windows.Forms.Label
    Friend WithEvents UTCDateTime As System.Windows.Forms.Label
    Friend WithEvents WaypointList As System.Windows.Forms.ListView
    Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader5 As System.Windows.Forms.ColumnHeader
    Friend WithEvents PowerOffButton As System.Windows.Forms.Button
    Friend WithEvents BaudRateLabel As System.Windows.Forms.Label
    Friend WithEvents FixMethodLabel As System.Windows.Forms.Label
    Friend WithEvents TrackedSatellitesLabel As System.Windows.Forms.Label
    Friend WithEvents ActiveSatellitesLabel As System.Windows.Forms.Label
    Friend WithEvents FixQualityLabel As System.Windows.Forms.Label
    Friend WithEvents FixObtainedLabel As System.Windows.Forms.Label
    Friend WithEvents FixModeLabel As System.Windows.Forms.Label
    Friend WithEvents LocalTimeLabel As System.Windows.Forms.Label
    Friend WithEvents SpeedLabel As System.Windows.Forms.Label
    Friend WithEvents FixedSatellitesLabel As System.Windows.Forms.Label
    Friend WithEvents UTCDateTimeLabel As System.Windows.Forms.Label
    Friend WithEvents BearingLabel As System.Windows.Forms.Label
    Friend WithEvents AltitudeLabel As System.Windows.Forms.Label
    Friend WithEvents LongitudeLabel As System.Windows.Forms.Label
    Friend WithEvents LatitudeLabel As System.Windows.Forms.Label
    Friend WithEvents MagneticVariationLabel As System.Windows.Forms.Label
    Friend WithEvents MeanDilutionOfPrecisionLabel As System.Windows.Forms.Label
    Friend WithEvents VerticalDilutionOfPrecisionLabel As System.Windows.Forms.Label
    Friend WithEvents HorizontalDilutionOfPrecisionLabel As System.Windows.Forms.Label
    Friend WithEvents DirectionLabel As System.Windows.Forms.Label
    Friend WithEvents RecognizedSentencesLabel As System.Windows.Forms.Label
    Friend WithEvents UnrecognizedSentencesLabel As System.Windows.Forms.Label
    Friend WithEvents EditWaypointButton As System.Windows.Forms.Button
    Friend WithEvents NewWaypointButton As System.Windows.Forms.Button
    Friend WithEvents SatelliteTabPage As System.Windows.Forms.TabPage
    Friend WithEvents WaypointTabPage As System.Windows.Forms.TabPage
    Friend WithEvents RawDataTabPage As System.Windows.Forms.TabPage
    Friend WithEvents DeviceTabPage As System.Windows.Forms.TabPage
    Friend WithEvents DeviceInformationGroupBox As System.Windows.Forms.GroupBox
    Friend WithEvents SupportsRoutes As System.Windows.Forms.Label
    Friend WithEvents SupportsTracks As System.Windows.Forms.Label
    Friend WithEvents SupportsWaypoints As System.Windows.Forms.Label
    Friend WithEvents SupportsRoutesLabel As System.Windows.Forms.Label
    Friend WithEvents SupportsTracksLabel As System.Windows.Forms.Label
    Friend WithEvents SupportsWaypointsLabel As System.Windows.Forms.Label
    Friend WithEvents BatteryLifeLabel As System.Windows.Forms.Label
    Friend WithEvents BatteryLife As System.Windows.Forms.Label
    Friend WithEvents ProtocolLabel As System.Windows.Forms.Label
    Friend WithEvents Protocol As System.Windows.Forms.Label
    Friend WithEvents SoftwareVersion As System.Windows.Forms.Label
    Friend WithEvents SoftwareVersionLabel As System.Windows.Forms.Label
    Friend WithEvents DeviceName As System.Windows.Forms.Label
    Friend WithEvents ManufacturerLabel As System.Windows.Forms.Label
    Friend WithEvents Manufacturer As System.Windows.Forms.Label
    Friend WithEvents DeviceNameLabel As System.Windows.Forms.Label
    Friend WithEvents SupportedWaypointFeaturesGroupBox As System.Windows.Forms.GroupBox
    Friend WithEvents WaypointIntersectingRoadCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointCountryCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointDepthCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointFacilityNameCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointCityCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointStateCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointAddressCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointAltitudeCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointSymbolCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointColorCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointCommentCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents WaypointDisplayModeCheckbox As System.Windows.Forms.CheckBox
    Friend WithEvents PositionTabPage As System.Windows.Forms.TabPage
    Friend WithEvents WaypointSymbolComboBox As System.Windows.Forms.ComboBox
    Friend WithEvents WaypointColorComboBox As System.Windows.Forms.ComboBox
    Friend WithEvents WaypointDisplayModeComboBox As System.Windows.Forms.ComboBox
    Friend WithEvents WaypointInstructionsLabel As System.Windows.Forms.Label
    Friend WithEvents ComPortLabel As System.Windows.Forms.Label
    Friend WithEvents ParsingText As System.Windows.Forms.TextBox
    Friend WithEvents ParseButton As System.Windows.Forms.Button
    Friend WithEvents ErrorTabPage As System.Windows.Forms.TabPage
    Friend WithEvents ParsingExceptionTextBox As System.Windows.Forms.TextBox
    Friend WithEvents GpsExceptionTextBox As System.Windows.Forms.TextBox
    Friend WithEvents OriginWaypointLabel As System.Windows.Forms.Label
    Friend WithEvents OriginWaypoint As System.Windows.Forms.Label
    Friend WithEvents DestinationWaypoint As System.Windows.Forms.Label
    Friend WithEvents CrossTrackError As System.Windows.Forms.Label
    Friend WithEvents RecommendedSteeringDirection As System.Windows.Forms.Label
    Friend WithEvents RecommendedSteeringDirectionLabel As System.Windows.Forms.Label
    Friend WithEvents UtmPosition As System.Windows.Forms.Label
    Friend WithEvents UtmPositionLabel As System.Windows.Forms.Label
    Friend WithEvents ShowCompassCheckBox As System.Windows.Forms.CheckBox
    Friend WithEvents ShowPrcCheckBox As System.Windows.Forms.CheckBox
    Friend WithEvents FlickerFreeDemoCheckBox As System.Windows.Forms.CheckBox
    Friend WithEvents BaudRateComboBox As StormSource.Gps.Controls.BaudRateComboBox
    Friend WithEvents ComPortComboBox As StormSource.Gps.Controls.ComPortComboBox
    Friend WithEvents SatelliteViewer As StormSource.Gps.Controls.SatelliteViewer
    Friend WithEvents GpsReceiver As StormSource.Gps.Receiver
    Friend WithEvents FixLikelihoodLabel As System.Windows.Forms.Label
    Friend WithEvents FixLikelihood As System.Windows.Forms.Label
    Friend WithEvents ParsingTextLabel As System.Windows.Forms.Label
    Friend WithEvents GpsExceptionLabel As System.Windows.Forms.Label
    Friend WithEvents ParsingExceptionLabel As System.Windows.Forms.Label
    Friend WithEvents CrossTrackErrorLabel As System.Windows.Forms.Label
    Friend WithEvents DestinationWaypointLabel As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem3 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem4 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem5 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem6 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem7 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem8 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem9 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem10 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem11 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem12 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem13 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem14 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem15 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim ListViewItem16 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "")}, -1)
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.StartButton = New System.Windows.Forms.Button()
        Me.StopButton = New System.Windows.Forms.Button()
        Me.StatusBar = New System.Windows.Forms.StatusBar()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.RawDataTabPage = New System.Windows.Forms.TabPage()
        Me.ParseButton = New System.Windows.Forms.Button()
        Me.ParsingTextLabel = New System.Windows.Forms.Label()
        Me.ParsingText = New System.Windows.Forms.TextBox()
        Me.RecognizedSentencesLabel = New System.Windows.Forms.Label()
        Me.UnrecognizedSentencesLabel = New System.Windows.Forms.Label()
        Me.UnrecognizedSentences = New System.Windows.Forms.ListBox()
        Me.RecognizedSentences = New System.Windows.Forms.ListBox()
        Me.PositionTabPage = New System.Windows.Forms.TabPage()
        Me.UtmPosition = New System.Windows.Forms.Label()
        Me.UtmPositionLabel = New System.Windows.Forms.Label()
        Me.FixMethod = New System.Windows.Forms.Label()
        Me.FixMethodLabel = New System.Windows.Forms.Label()
        Me.TrackedSatellites = New System.Windows.Forms.Label()
        Me.TrackedSatellitesLabel = New System.Windows.Forms.Label()
        Me.FixedSatellites = New System.Windows.Forms.Label()
        Me.ActiveSatellitesLabel = New System.Windows.Forms.Label()
        Me.MagneticVariation = New System.Windows.Forms.Label()
        Me.MagneticVariationLabel = New System.Windows.Forms.Label()
        Me.MeanDilutionOfPrecision = New System.Windows.Forms.Label()
        Me.MeanDilutionOfPrecisionLabel = New System.Windows.Forms.Label()
        Me.VerticalDilutionOfPrecision = New System.Windows.Forms.Label()
        Me.VerticalDilutionOfPrecisionLabel = New System.Windows.Forms.Label()
        Me.HorizontalDilutionOfPrecision = New System.Windows.Forms.Label()
        Me.HorizontalDilutionOfPrecisionLabel = New System.Windows.Forms.Label()
        Me.FixQuality = New System.Windows.Forms.Label()
        Me.FixQualityLabel = New System.Windows.Forms.Label()
        Me.FixObtained = New System.Windows.Forms.Label()
        Me.FixObtainedLabel = New System.Windows.Forms.Label()
        Me.FixMode = New System.Windows.Forms.Label()
        Me.FixModeLabel = New System.Windows.Forms.Label()
        Me.LocalTime = New System.Windows.Forms.Label()
        Me.LocalTimeLabel = New System.Windows.Forms.Label()
        Me.Speed = New System.Windows.Forms.Label()
        Me.SpeedLabel = New System.Windows.Forms.Label()
        Me.ActiveSatellites = New System.Windows.Forms.Label()
        Me.FixedSatellitesLabel = New System.Windows.Forms.Label()
        Me.UTCDateTime = New System.Windows.Forms.Label()
        Me.UTCDateTimeLabel = New System.Windows.Forms.Label()
        Me.Direction = New System.Windows.Forms.Label()
        Me.DirectionLabel = New System.Windows.Forms.Label()
        Me.Bearing = New System.Windows.Forms.Label()
        Me.Altitude = New System.Windows.Forms.Label()
        Me.Longitude = New System.Windows.Forms.Label()
        Me.Latitude = New System.Windows.Forms.Label()
        Me.BearingLabel = New System.Windows.Forms.Label()
        Me.LongitudeLabel = New System.Windows.Forms.Label()
        Me.AltitudeLabel = New System.Windows.Forms.Label()
        Me.LatitudeLabel = New System.Windows.Forms.Label()
        Me.SatelliteTabPage = New System.Windows.Forms.TabPage()
        Me.FixLikelihoodLabel = New System.Windows.Forms.Label()
        Me.SatelliteViewer = New StormSource.Gps.Controls.SatelliteViewer()
        Me.ShowCompassCheckBox = New System.Windows.Forms.CheckBox()
        Me.ShowPrcCheckBox = New System.Windows.Forms.CheckBox()
        Me.FlickerFreeDemoCheckBox = New System.Windows.Forms.CheckBox()
        Me.SatelliteList = New System.Windows.Forms.ListView()
        Me.SatelliteID = New System.Windows.Forms.ColumnHeader()
        Me.SatelliteElevation = New System.Windows.Forms.ColumnHeader()
        Me.SatelliteAzimuth = New System.Windows.Forms.ColumnHeader()
        Me.SatelliteSignalStrength = New System.Windows.Forms.ColumnHeader()
        Me.FixLikelihood = New System.Windows.Forms.Label()
        Me.DeviceTabPage = New System.Windows.Forms.TabPage()
        Me.SupportedWaypointFeaturesGroupBox = New System.Windows.Forms.GroupBox()
        Me.WaypointDisplayModeComboBox = New System.Windows.Forms.ComboBox()
        Me.WaypointColorComboBox = New System.Windows.Forms.ComboBox()
        Me.WaypointSymbolComboBox = New System.Windows.Forms.ComboBox()
        Me.WaypointIntersectingRoadCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointCountryCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointDepthCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointFacilityNameCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointCityCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointStateCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointAddressCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointAltitudeCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointDisplayModeCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointSymbolCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointColorCheckbox = New System.Windows.Forms.CheckBox()
        Me.WaypointCommentCheckbox = New System.Windows.Forms.CheckBox()
        Me.DeviceInformationGroupBox = New System.Windows.Forms.GroupBox()
        Me.SupportsRoutes = New System.Windows.Forms.Label()
        Me.SupportsTracks = New System.Windows.Forms.Label()
        Me.SupportsWaypoints = New System.Windows.Forms.Label()
        Me.SupportsRoutesLabel = New System.Windows.Forms.Label()
        Me.SupportsTracksLabel = New System.Windows.Forms.Label()
        Me.SupportsWaypointsLabel = New System.Windows.Forms.Label()
        Me.BatteryLifeLabel = New System.Windows.Forms.Label()
        Me.BatteryLife = New System.Windows.Forms.Label()
        Me.ProtocolLabel = New System.Windows.Forms.Label()
        Me.Protocol = New System.Windows.Forms.Label()
        Me.SoftwareVersion = New System.Windows.Forms.Label()
        Me.SoftwareVersionLabel = New System.Windows.Forms.Label()
        Me.DeviceName = New System.Windows.Forms.Label()
        Me.ManufacturerLabel = New System.Windows.Forms.Label()
        Me.Manufacturer = New System.Windows.Forms.Label()
        Me.DeviceNameLabel = New System.Windows.Forms.Label()
        Me.PowerOffButton = New System.Windows.Forms.Button()
        Me.ErrorTabPage = New System.Windows.Forms.TabPage()
        Me.GpsExceptionTextBox = New System.Windows.Forms.TextBox()
        Me.GpsExceptionLabel = New System.Windows.Forms.Label()
        Me.ParsingExceptionTextBox = New System.Windows.Forms.TextBox()
        Me.ParsingExceptionLabel = New System.Windows.Forms.Label()
        Me.WaypointTabPage = New System.Windows.Forms.TabPage()
        Me.RecommendedSteeringDirection = New System.Windows.Forms.Label()
        Me.RecommendedSteeringDirectionLabel = New System.Windows.Forms.Label()
        Me.CrossTrackError = New System.Windows.Forms.Label()
        Me.CrossTrackErrorLabel = New System.Windows.Forms.Label()
        Me.DestinationWaypoint = New System.Windows.Forms.Label()
        Me.DestinationWaypointLabel = New System.Windows.Forms.Label()
        Me.OriginWaypoint = New System.Windows.Forms.Label()
        Me.OriginWaypointLabel = New System.Windows.Forms.Label()
        Me.WaypointInstructionsLabel = New System.Windows.Forms.Label()
        Me.NewWaypointButton = New System.Windows.Forms.Button()
        Me.EditWaypointButton = New System.Windows.Forms.Button()
        Me.DownloadWaypointButton = New System.Windows.Forms.Button()
        Me.WaypointList = New System.Windows.Forms.ListView()
        Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader()
        Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader()
        Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader()
        Me.ColumnHeader5 = New System.Windows.Forms.ColumnHeader()
        Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader()
        Me.LocalTimeTimer = New System.Timers.Timer()
        Me.ComPortLabel = New System.Windows.Forms.Label()
        Me.BaudRateLabel = New System.Windows.Forms.Label()
        Me.BaudRateComboBox = New StormSource.Gps.Controls.BaudRateComboBox()
        Me.ComPortComboBox = New StormSource.Gps.Controls.ComPortComboBox()
        Me.GpsReceiver = New StormSource.Gps.Receiver()
        Me.TabControl1.SuspendLayout()
        Me.RawDataTabPage.SuspendLayout()
        Me.PositionTabPage.SuspendLayout()
        Me.SatelliteTabPage.SuspendLayout()
        Me.DeviceTabPage.SuspendLayout()
        Me.SupportedWaypointFeaturesGroupBox.SuspendLayout()
        Me.DeviceInformationGroupBox.SuspendLayout()
        Me.ErrorTabPage.SuspendLayout()
        Me.WaypointTabPage.SuspendLayout()
        CType(Me.LocalTimeTimer, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'StartButton
        '
        Me.StartButton.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.StartButton.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.StartButton.Location = New System.Drawing.Point(423, 105)
        Me.StartButton.Name = "StartButton"
        Me.StartButton.Size = New System.Drawing.Size(72, 24)
        Me.StartButton.TabIndex = 0
        Me.StartButton.Text = "Start"
        '
        'StopButton
        '
        Me.StopButton.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.StopButton.Enabled = False
        Me.StopButton.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.StopButton.Location = New System.Drawing.Point(423, 135)
        Me.StopButton.Name = "StopButton"
        Me.StopButton.Size = New System.Drawing.Size(72, 24)
        Me.StopButton.TabIndex = 1
        Me.StopButton.Text = "Stop"
        '
        'StatusBar
        '
        Me.StatusBar.Location = New System.Drawing.Point(0, 527)
        Me.StatusBar.Name = "StatusBar"
        Me.StatusBar.Size = New System.Drawing.Size(508, 18)
        Me.StatusBar.TabIndex = 3
        Me.StatusBar.Text = "Ready"
        '
        'TabControl1
        '
        Me.TabControl1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                                Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.RawDataTabPage, Me.PositionTabPage, Me.SatelliteTabPage, Me.DeviceTabPage, Me.ErrorTabPage, Me.WaypointTabPage})
        Me.TabControl1.Location = New System.Drawing.Point(6, 9)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(405, 513)
        Me.TabControl1.TabIndex = 4
        '
        'RawDataTabPage
        '
        Me.RawDataTabPage.BackColor = System.Drawing.SystemColors.Control
        Me.RawDataTabPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.ParseButton, Me.ParsingTextLabel, Me.ParsingText, Me.RecognizedSentencesLabel, Me.UnrecognizedSentencesLabel, Me.UnrecognizedSentences, Me.RecognizedSentences})
        Me.RawDataTabPage.Location = New System.Drawing.Point(4, 22)
        Me.RawDataTabPage.Name = "RawDataTabPage"
        Me.RawDataTabPage.Size = New System.Drawing.Size(397, 487)
        Me.RawDataTabPage.TabIndex = 2
        Me.RawDataTabPage.Text = "Raw Data"
        '
        'ParseButton
        '
        Me.ParseButton.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
        Me.ParseButton.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.ParseButton.Location = New System.Drawing.Point(318, 303)
        Me.ParseButton.Name = "ParseButton"
        Me.ParseButton.Size = New System.Drawing.Size(72, 24)
        Me.ParseButton.TabIndex = 11
        Me.ParseButton.Text = "Parse"
        '
        'ParsingTextLabel
        '
        Me.ParsingTextLabel.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me.ParsingTextLabel.AutoSize = True
        Me.ParsingTextLabel.Location = New System.Drawing.Point(9, 285)
        Me.ParsingTextLabel.Name = "ParsingTextLabel"
        Me.ParsingTextLabel.Size = New System.Drawing.Size(85, 13)
        Me.ParsingTextLabel.TabIndex = 10
        Me.ParsingTextLabel.Text = "Manual parsing:"
        '
        'ParsingText
        '
        Me.ParsingText.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.ParsingText.Location = New System.Drawing.Point(6, 303)
        Me.ParsingText.Multiline = True
        Me.ParsingText.Name = "ParsingText"
        Me.ParsingText.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.ParsingText.Size = New System.Drawing.Size(306, 87)
        Me.ParsingText.TabIndex = 9
        Me.ParsingText.Text = "(Enter data to parse here then click the Parse button)"
        '
        'RecognizedSentencesLabel
        '
        Me.RecognizedSentencesLabel.AllowDrop = True
        Me.RecognizedSentencesLabel.Location = New System.Drawing.Point(6, 6)
        Me.RecognizedSentencesLabel.Name = "RecognizedSentencesLabel"
        Me.RecognizedSentencesLabel.Size = New System.Drawing.Size(141, 15)
        Me.RecognizedSentencesLabel.TabIndex = 8
        Me.RecognizedSentencesLabel.Text = "All Recognized Sentences:"
        '
        'UnrecognizedSentencesLabel
        '
        Me.UnrecognizedSentencesLabel.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me.UnrecognizedSentencesLabel.AutoSize = True
        Me.UnrecognizedSentencesLabel.Location = New System.Drawing.Point(6, 396)
        Me.UnrecognizedSentencesLabel.Name = "UnrecognizedSentencesLabel"
        Me.UnrecognizedSentencesLabel.Size = New System.Drawing.Size(134, 13)
        Me.UnrecognizedSentencesLabel.TabIndex = 7
        Me.UnrecognizedSentencesLabel.Text = "Unrecognized Sentences:"
        '
        'UnrecognizedSentences
        '
        Me.UnrecognizedSentences.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.UnrecognizedSentences.IntegralHeight = False
        Me.UnrecognizedSentences.Location = New System.Drawing.Point(6, 414)
        Me.UnrecognizedSentences.Name = "UnrecognizedSentences"
        Me.UnrecognizedSentences.Size = New System.Drawing.Size(384, 66)
        Me.UnrecognizedSentences.TabIndex = 6
        '
        'RecognizedSentences
        '
        Me.RecognizedSentences.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                                Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.RecognizedSentences.IntegralHeight = False
        Me.RecognizedSentences.Location = New System.Drawing.Point(6, 24)
        Me.RecognizedSentences.Name = "RecognizedSentences"
        Me.RecognizedSentences.ScrollAlwaysVisible = True
        Me.RecognizedSentences.Size = New System.Drawing.Size(384, 255)
        Me.RecognizedSentences.TabIndex = 4
        '
        'PositionTabPage
        '
        Me.PositionTabPage.BackColor = System.Drawing.SystemColors.Control
        Me.PositionTabPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.UtmPosition, Me.UtmPositionLabel, Me.FixMethod, Me.FixMethodLabel, Me.TrackedSatellites, Me.TrackedSatellitesLabel, Me.FixedSatellites, Me.ActiveSatellitesLabel, Me.MagneticVariation, Me.MagneticVariationLabel, Me.MeanDilutionOfPrecision, Me.MeanDilutionOfPrecisionLabel, Me.VerticalDilutionOfPrecision, Me.VerticalDilutionOfPrecisionLabel, Me.HorizontalDilutionOfPrecision, Me.HorizontalDilutionOfPrecisionLabel, Me.FixQuality, Me.FixQualityLabel, Me.FixObtained, Me.FixObtainedLabel, Me.FixMode, Me.FixModeLabel, Me.LocalTime, Me.LocalTimeLabel, Me.Speed, Me.SpeedLabel, Me.ActiveSatellites, Me.FixedSatellitesLabel, Me.UTCDateTime, Me.UTCDateTimeLabel, Me.Direction, Me.DirectionLabel, Me.Bearing, Me.Altitude, Me.Longitude, Me.Latitude, Me.BearingLabel, Me.LongitudeLabel, Me.AltitudeLabel, Me.LatitudeLabel})
        Me.PositionTabPage.Location = New System.Drawing.Point(4, 22)
        Me.PositionTabPage.Name = "PositionTabPage"
        Me.PositionTabPage.Size = New System.Drawing.Size(397, 487)
        Me.PositionTabPage.TabIndex = 0
        Me.PositionTabPage.Text = "Position"
        '
        'UtmPosition
        '
        Me.UtmPosition.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.UtmPosition.Location = New System.Drawing.Point(102, 273)
        Me.UtmPosition.Name = "UtmPosition"
        Me.UtmPosition.Size = New System.Drawing.Size(249, 18)
        Me.UtmPosition.TabIndex = 41
        Me.UtmPosition.Text = "(Unknown)"
        '
        'UtmPositionLabel
        '
        Me.UtmPositionLabel.Location = New System.Drawing.Point(9, 273)
        Me.UtmPositionLabel.Name = "UtmPositionLabel"
        Me.UtmPositionLabel.Size = New System.Drawing.Size(87, 18)
        Me.UtmPositionLabel.TabIndex = 40
        Me.UtmPositionLabel.Text = "UTM Position:"
        '
        'FixMethod
        '
        Me.FixMethod.Location = New System.Drawing.Point(102, 153)
        Me.FixMethod.Name = "FixMethod"
        Me.FixMethod.Size = New System.Drawing.Size(249, 18)
        Me.FixMethod.TabIndex = 39
        Me.FixMethod.Text = "(Unknown)"
        '
        'FixMethodLabel
        '
        Me.FixMethodLabel.Location = New System.Drawing.Point(9, 153)
        Me.FixMethodLabel.Name = "FixMethodLabel"
        Me.FixMethodLabel.Size = New System.Drawing.Size(87, 18)
        Me.FixMethodLabel.TabIndex = 38
        Me.FixMethodLabel.Text = "Fix Method:"
        '
        'TrackedSatellites
        '
        Me.TrackedSatellites.Location = New System.Drawing.Point(102, 57)
        Me.TrackedSatellites.Name = "TrackedSatellites"
        Me.TrackedSatellites.Size = New System.Drawing.Size(249, 18)
        Me.TrackedSatellites.TabIndex = 37
        Me.TrackedSatellites.Text = "(Unknown)"
        '
        'TrackedSatellitesLabel
        '
        Me.TrackedSatellitesLabel.Location = New System.Drawing.Point(9, 57)
        Me.TrackedSatellitesLabel.Name = "TrackedSatellitesLabel"
        Me.TrackedSatellitesLabel.Size = New System.Drawing.Size(87, 18)
        Me.TrackedSatellitesLabel.TabIndex = 36
        Me.TrackedSatellitesLabel.Text = "Tracked Sat.:"
        '
        'FixedSatellites
        '
        Me.FixedSatellites.Location = New System.Drawing.Point(102, 33)
        Me.FixedSatellites.Name = "FixedSatellites"
        Me.FixedSatellites.Size = New System.Drawing.Size(249, 18)
        Me.FixedSatellites.TabIndex = 35
        Me.FixedSatellites.Text = "(Unknown)"
        '
        'ActiveSatellitesLabel
        '
        Me.ActiveSatellitesLabel.Location = New System.Drawing.Point(9, 9)
        Me.ActiveSatellitesLabel.Name = "ActiveSatellitesLabel"
        Me.ActiveSatellitesLabel.Size = New System.Drawing.Size(87, 18)
        Me.ActiveSatellitesLabel.TabIndex = 34
        Me.ActiveSatellitesLabel.Text = "Active Satellites:"
        '
        'MagneticVariation
        '
        Me.MagneticVariation.Font = New System.Drawing.Font("Courier New", 8.25!)
        Me.MagneticVariation.Location = New System.Drawing.Point(102, 465)
        Me.MagneticVariation.Name = "MagneticVariation"
        Me.MagneticVariation.Size = New System.Drawing.Size(249, 18)
        Me.MagneticVariation.TabIndex = 33
        Me.MagneticVariation.Text = "(Unknown)"
        '
        'MagneticVariationLabel
        '
        Me.MagneticVariationLabel.Location = New System.Drawing.Point(9, 465)
        Me.MagneticVariationLabel.Name = "MagneticVariationLabel"
        Me.MagneticVariationLabel.Size = New System.Drawing.Size(87, 18)
        Me.MagneticVariationLabel.TabIndex = 32
        Me.MagneticVariationLabel.Text = "Magnetic Var.:"
        '
        'MeanDilutionOfPrecision
        '
        Me.MeanDilutionOfPrecision.Location = New System.Drawing.Point(102, 393)
        Me.MeanDilutionOfPrecision.Name = "MeanDilutionOfPrecision"
        Me.MeanDilutionOfPrecision.Size = New System.Drawing.Size(249, 18)
        Me.MeanDilutionOfPrecision.TabIndex = 31
        Me.MeanDilutionOfPrecision.Text = "(Unknown)"
        '
        'MeanDilutionOfPrecisionLabel
        '
        Me.MeanDilutionOfPrecisionLabel.Location = New System.Drawing.Point(9, 393)
        Me.MeanDilutionOfPrecisionLabel.Name = "MeanDilutionOfPrecisionLabel"
        Me.MeanDilutionOfPrecisionLabel.Size = New System.Drawing.Size(87, 18)
        Me.MeanDilutionOfPrecisionLabel.TabIndex = 30
        Me.MeanDilutionOfPrecisionLabel.Text = "PDOP:"
        '
        'VerticalDilutionOfPrecision
        '
        Me.VerticalDilutionOfPrecision.Location = New System.Drawing.Point(102, 441)
        Me.VerticalDilutionOfPrecision.Name = "VerticalDilutionOfPrecision"
        Me.VerticalDilutionOfPrecision.Size = New System.Drawing.Size(249, 18)
        Me.VerticalDilutionOfPrecision.TabIndex = 29
        Me.VerticalDilutionOfPrecision.Text = "(Unknown)"
        '
        'VerticalDilutionOfPrecisionLabel
        '
        Me.VerticalDilutionOfPrecisionLabel.Location = New System.Drawing.Point(9, 441)
        Me.VerticalDilutionOfPrecisionLabel.Name = "VerticalDilutionOfPrecisionLabel"
        Me.VerticalDilutionOfPrecisionLabel.Size = New System.Drawing.Size(87, 18)
        Me.VerticalDilutionOfPrecisionLabel.TabIndex = 28
        Me.VerticalDilutionOfPrecisionLabel.Text = "VDOP:"
        '
        'HorizontalDilutionOfPrecision
        '
        Me.HorizontalDilutionOfPrecision.Location = New System.Drawing.Point(102, 417)
        Me.HorizontalDilutionOfPrecision.Name = "HorizontalDilutionOfPrecision"
        Me.HorizontalDilutionOfPrecision.Size = New System.Drawing.Size(249, 18)
        Me.HorizontalDilutionOfPrecision.TabIndex = 27
        Me.HorizontalDilutionOfPrecision.Text = "(Unknown)"
        '
        'HorizontalDilutionOfPrecisionLabel
        '
        Me.HorizontalDilutionOfPrecisionLabel.Location = New System.Drawing.Point(9, 417)
        Me.HorizontalDilutionOfPrecisionLabel.Name = "HorizontalDilutionOfPrecisionLabel"
        Me.HorizontalDilutionOfPrecisionLabel.Size = New System.Drawing.Size(87, 18)
        Me.HorizontalDilutionOfPrecisionLabel.TabIndex = 26
        Me.HorizontalDilutionOfPrecisionLabel.Text = "HDOP:"
        '
        'FixQuality
        '
        Me.FixQuality.Location = New System.Drawing.Point(102, 177)
        Me.FixQuality.Name = "FixQuality"
        Me.FixQuality.Size = New System.Drawing.Size(249, 18)
        Me.FixQuality.TabIndex = 25
        Me.FixQuality.Text = "(Unknown)"
        '
        'FixQualityLabel
        '
        Me.FixQualityLabel.Location = New System.Drawing.Point(9, 177)
        Me.FixQualityLabel.Name = "FixQualityLabel"
        Me.FixQualityLabel.Size = New System.Drawing.Size(87, 18)
        Me.FixQualityLabel.TabIndex = 24
        Me.FixQualityLabel.Text = "Fix Quality:"
        '
        'FixObtained
        '
        Me.FixObtained.Location = New System.Drawing.Point(102, 201)
        Me.FixObtained.Name = "FixObtained"
        Me.FixObtained.Size = New System.Drawing.Size(249, 18)
        Me.FixObtained.TabIndex = 21
        Me.FixObtained.Text = "(Unknown)"
        '
        'FixObtainedLabel
        '
        Me.FixObtainedLabel.Location = New System.Drawing.Point(9, 201)
        Me.FixObtainedLabel.Name = "FixObtainedLabel"
        Me.FixObtainedLabel.Size = New System.Drawing.Size(87, 18)
        Me.FixObtainedLabel.TabIndex = 20
        Me.FixObtainedLabel.Text = "Fix Obtained:"
        '
        'FixMode
        '
        Me.FixMode.Location = New System.Drawing.Point(102, 129)
        Me.FixMode.Name = "FixMode"
        Me.FixMode.Size = New System.Drawing.Size(249, 18)
        Me.FixMode.TabIndex = 19
        Me.FixMode.Text = "(Unknown)"
        '
        'FixModeLabel
        '
        Me.FixModeLabel.Location = New System.Drawing.Point(9, 129)
        Me.FixModeLabel.Name = "FixModeLabel"
        Me.FixModeLabel.Size = New System.Drawing.Size(87, 18)
        Me.FixModeLabel.TabIndex = 18
        Me.FixModeLabel.Text = "Fix Mode:"
        '
        'LocalTime
        '
        Me.LocalTime.Location = New System.Drawing.Point(102, 105)
        Me.LocalTime.Name = "LocalTime"
        Me.LocalTime.Size = New System.Drawing.Size(249, 18)
        Me.LocalTime.TabIndex = 17
        Me.LocalTime.Text = "(Unknown)"
        '
        'LocalTimeLabel
        '
        Me.LocalTimeLabel.Location = New System.Drawing.Point(9, 105)
        Me.LocalTimeLabel.Name = "LocalTimeLabel"
        Me.LocalTimeLabel.Size = New System.Drawing.Size(87, 18)
        Me.LocalTimeLabel.TabIndex = 16
        Me.LocalTimeLabel.Text = "Local Time:"
        '
        'Speed
        '
        Me.Speed.Location = New System.Drawing.Point(102, 321)
        Me.Speed.Name = "Speed"
        Me.Speed.Size = New System.Drawing.Size(249, 18)
        Me.Speed.TabIndex = 15
        Me.Speed.Text = "(Unknown)"
        '
        'SpeedLabel
        '
        Me.SpeedLabel.Location = New System.Drawing.Point(9, 321)
        Me.SpeedLabel.Name = "SpeedLabel"
        Me.SpeedLabel.Size = New System.Drawing.Size(87, 18)
        Me.SpeedLabel.TabIndex = 14
        Me.SpeedLabel.Text = "Speed:"
        '
        'ActiveSatellites
        '
        Me.ActiveSatellites.Location = New System.Drawing.Point(102, 9)
        Me.ActiveSatellites.Name = "ActiveSatellites"
        Me.ActiveSatellites.Size = New System.Drawing.Size(249, 18)
        Me.ActiveSatellites.TabIndex = 13
        Me.ActiveSatellites.Text = "(Unknown)"
        '
        'FixedSatellitesLabel
        '
        Me.FixedSatellitesLabel.Location = New System.Drawing.Point(9, 33)
        Me.FixedSatellitesLabel.Name = "FixedSatellitesLabel"
        Me.FixedSatellitesLabel.Size = New System.Drawing.Size(87, 18)
        Me.FixedSatellitesLabel.TabIndex = 12
        Me.FixedSatellitesLabel.Text = "Fixed Satellites:"
        '
        'UTCDateTime
        '
        Me.UTCDateTime.Location = New System.Drawing.Point(102, 81)
        Me.UTCDateTime.Name = "UTCDateTime"
        Me.UTCDateTime.Size = New System.Drawing.Size(249, 18)
        Me.UTCDateTime.TabIndex = 11
        Me.UTCDateTime.Text = "(Unknown)"
        '
        'UTCDateTimeLabel
        '
        Me.UTCDateTimeLabel.Location = New System.Drawing.Point(9, 81)
        Me.UTCDateTimeLabel.Name = "UTCDateTimeLabel"
        Me.UTCDateTimeLabel.Size = New System.Drawing.Size(87, 18)
        Me.UTCDateTimeLabel.TabIndex = 10
        Me.UTCDateTimeLabel.Text = "GPS Time:"
        '
        'Direction
        '
        Me.Direction.Location = New System.Drawing.Point(102, 369)
        Me.Direction.Name = "Direction"
        Me.Direction.Size = New System.Drawing.Size(249, 18)
        Me.Direction.TabIndex = 9
        Me.Direction.Text = "(Unknown)"
        '
        'DirectionLabel
        '
        Me.DirectionLabel.Location = New System.Drawing.Point(9, 369)
        Me.DirectionLabel.Name = "DirectionLabel"
        Me.DirectionLabel.Size = New System.Drawing.Size(87, 18)
        Me.DirectionLabel.TabIndex = 8
        Me.DirectionLabel.Text = "Direction:"
        '
        'Bearing
        '
        Me.Bearing.Location = New System.Drawing.Point(102, 345)
        Me.Bearing.Name = "Bearing"
        Me.Bearing.Size = New System.Drawing.Size(249, 18)
        Me.Bearing.TabIndex = 7
        Me.Bearing.Text = "(Unknown)"
        '
        'Altitude
        '
        Me.Altitude.Location = New System.Drawing.Point(102, 297)
        Me.Altitude.Name = "Altitude"
        Me.Altitude.Size = New System.Drawing.Size(249, 18)
        Me.Altitude.TabIndex = 6
        Me.Altitude.Text = "(Unknown)"
        '
        'Longitude
        '
        Me.Longitude.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Longitude.Location = New System.Drawing.Point(102, 249)
        Me.Longitude.Name = "Longitude"
        Me.Longitude.Size = New System.Drawing.Size(249, 18)
        Me.Longitude.TabIndex = 5
        Me.Longitude.Text = "(Unknown)"
        '
        'Latitude
        '
        Me.Latitude.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Latitude.Location = New System.Drawing.Point(102, 225)
        Me.Latitude.Name = "Latitude"
        Me.Latitude.Size = New System.Drawing.Size(249, 18)
        Me.Latitude.TabIndex = 4
        Me.Latitude.Text = "(Unknown)"
        '
        'BearingLabel
        '
        Me.BearingLabel.Location = New System.Drawing.Point(9, 345)
        Me.BearingLabel.Name = "BearingLabel"
        Me.BearingLabel.Size = New System.Drawing.Size(87, 18)
        Me.BearingLabel.TabIndex = 3
        Me.BearingLabel.Text = "Bearing:"
        '
        'LongitudeLabel
        '
        Me.LongitudeLabel.Location = New System.Drawing.Point(9, 249)
        Me.LongitudeLabel.Name = "LongitudeLabel"
        Me.LongitudeLabel.Size = New System.Drawing.Size(87, 18)
        Me.LongitudeLabel.TabIndex = 1
        Me.LongitudeLabel.Text = "Longitude:"
        '
        'AltitudeLabel
        '
        Me.AltitudeLabel.Location = New System.Drawing.Point(9, 297)
        Me.AltitudeLabel.Name = "AltitudeLabel"
        Me.AltitudeLabel.Size = New System.Drawing.Size(87, 18)
        Me.AltitudeLabel.TabIndex = 2
        Me.AltitudeLabel.Text = "Altitude:"
        '
        'LatitudeLabel
        '
        Me.LatitudeLabel.Location = New System.Drawing.Point(9, 225)
        Me.LatitudeLabel.Name = "LatitudeLabel"
        Me.LatitudeLabel.Size = New System.Drawing.Size(87, 18)
        Me.LatitudeLabel.TabIndex = 0
        Me.LatitudeLabel.Text = "Latitude:"
        '
        'SatelliteTabPage
        '
        Me.SatelliteTabPage.BackColor = System.Drawing.SystemColors.Control
        Me.SatelliteTabPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.FixLikelihoodLabel, Me.SatelliteViewer, Me.ShowCompassCheckBox, Me.ShowPrcCheckBox, Me.FlickerFreeDemoCheckBox, Me.SatelliteList, Me.FixLikelihood})
        Me.SatelliteTabPage.Location = New System.Drawing.Point(4, 22)
        Me.SatelliteTabPage.Name = "SatelliteTabPage"
        Me.SatelliteTabPage.Size = New System.Drawing.Size(397, 487)
        Me.SatelliteTabPage.TabIndex = 1
        Me.SatelliteTabPage.Text = "Satellites"
        '
        'FixLikelihoodLabel
        '
        Me.FixLikelihoodLabel.Location = New System.Drawing.Point(12, 9)
        Me.FixLikelihoodLabel.Name = "FixLikelihoodLabel"
        Me.FixLikelihoodLabel.Size = New System.Drawing.Size(75, 18)
        Me.FixLikelihoodLabel.TabIndex = 9
        Me.FixLikelihoodLabel.Text = "Fix likelihood:"
        '
        'SatelliteViewer
        '
        Me.SatelliteViewer.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                                Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.SatelliteViewer.BackColor = System.Drawing.SystemColors.Control
        Me.SatelliteViewer.Bearing = 0.0!
        Me.SatelliteViewer.CompassFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.SatelliteViewer.DestinationBearing = 0.0!
        Me.SatelliteViewer.Location = New System.Drawing.Point(12, 267)
        Me.SatelliteViewer.Name = "SatelliteViewer"
        Me.SatelliteViewer.Orientation = StormSource.Gps.Controls.OrientationMode.BearingUp
        Me.SatelliteViewer.PseudoRandomCodeFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.SatelliteViewer.Receiver = Nothing
        Me.SatelliteViewer.RegionShape = StormSource.Gps.Controls.RegionShapeMode.Circular
        Me.SatelliteViewer.Size = New System.Drawing.Size(237, 210)
        Me.SatelliteViewer.TabIndex = 8
        '
        'ShowCompassCheckBox
        '
        Me.ShowCompassCheckBox.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.ShowCompassCheckBox.Checked = True
        Me.ShowCompassCheckBox.CheckState = System.Windows.Forms.CheckState.Checked
        Me.ShowCompassCheckBox.Location = New System.Drawing.Point(258, 315)
        Me.ShowCompassCheckBox.Name = "ShowCompassCheckBox"
        Me.ShowCompassCheckBox.Size = New System.Drawing.Size(129, 18)
        Me.ShowCompassCheckBox.TabIndex = 7
        Me.ShowCompassCheckBox.Text = "Show Compass"
        '
        'ShowPrcCheckBox
        '
        Me.ShowPrcCheckBox.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.ShowPrcCheckBox.Checked = True
        Me.ShowPrcCheckBox.CheckState = System.Windows.Forms.CheckState.Checked
        Me.ShowPrcCheckBox.Location = New System.Drawing.Point(258, 294)
        Me.ShowPrcCheckBox.Name = "ShowPrcCheckBox"
        Me.ShowPrcCheckBox.Size = New System.Drawing.Size(129, 18)
        Me.ShowPrcCheckBox.TabIndex = 6
        Me.ShowPrcCheckBox.Text = "Show PRC Numbers"
        '
        'FlickerFreeDemoCheckBox
        '
        Me.FlickerFreeDemoCheckBox.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.FlickerFreeDemoCheckBox.Location = New System.Drawing.Point(258, 267)
        Me.FlickerFreeDemoCheckBox.Name = "FlickerFreeDemoCheckBox"
        Me.FlickerFreeDemoCheckBox.Size = New System.Drawing.Size(129, 24)
        Me.FlickerFreeDemoCheckBox.TabIndex = 5
        Me.FlickerFreeDemoCheckBox.Text = "Flicker-free demo"
        '
        'SatelliteList
        '
        Me.SatelliteList.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.SatelliteList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.SatelliteID, Me.SatelliteElevation, Me.SatelliteAzimuth, Me.SatelliteSignalStrength})
        Me.SatelliteList.FullRowSelect = True
        Me.SatelliteList.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1, ListViewItem2, ListViewItem3, ListViewItem4, ListViewItem5, ListViewItem6, ListViewItem7, ListViewItem8, ListViewItem9, ListViewItem10, ListViewItem11, ListViewItem12, ListViewItem13, ListViewItem14, ListViewItem15, ListViewItem16})
        Me.SatelliteList.Location = New System.Drawing.Point(9, 30)
        Me.SatelliteList.Name = "SatelliteList"
        Me.SatelliteList.Size = New System.Drawing.Size(378, 228)
        Me.SatelliteList.TabIndex = 0
        Me.SatelliteList.View = System.Windows.Forms.View.Details
        '
        'SatelliteID
        '
        Me.SatelliteID.Text = "PRC"
        Me.SatelliteID.Width = 77
        '
        'SatelliteElevation
        '
        Me.SatelliteElevation.Text = "Elevation"
        Me.SatelliteElevation.Width = 80
        '
        'SatelliteAzimuth
        '
        Me.SatelliteAzimuth.Text = "Azimuth"
        Me.SatelliteAzimuth.Width = 81
        '
        'SatelliteSignalStrength
        '
        Me.SatelliteSignalStrength.Text = "Signal Strength"
        Me.SatelliteSignalStrength.Width = 116
        '
        'FixLikelihood
        '
        Me.FixLikelihood.Location = New System.Drawing.Point(93, 9)
        Me.FixLikelihood.Name = "FixLikelihood"
        Me.FixLikelihood.Size = New System.Drawing.Size(168, 18)
        Me.FixLikelihood.TabIndex = 9
        Me.FixLikelihood.Text = "Unknown"
        '
        'DeviceTabPage
        '
        Me.DeviceTabPage.BackColor = System.Drawing.SystemColors.Control
        Me.DeviceTabPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.SupportedWaypointFeaturesGroupBox, Me.DeviceInformationGroupBox})
        Me.DeviceTabPage.Location = New System.Drawing.Point(4, 22)
        Me.DeviceTabPage.Name = "DeviceTabPage"
        Me.DeviceTabPage.Size = New System.Drawing.Size(397, 487)
        Me.DeviceTabPage.TabIndex = 4
        Me.DeviceTabPage.Text = "Device"
        '
        'SupportedWaypointFeaturesGroupBox
        '
        Me.SupportedWaypointFeaturesGroupBox.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.SupportedWaypointFeaturesGroupBox.Controls.AddRange(New System.Windows.Forms.Control() {Me.WaypointDisplayModeComboBox, Me.WaypointColorComboBox, Me.WaypointSymbolComboBox, Me.WaypointIntersectingRoadCheckbox, Me.WaypointCountryCheckbox, Me.WaypointDepthCheckbox, Me.WaypointFacilityNameCheckbox, Me.WaypointCityCheckbox, Me.WaypointStateCheckbox, Me.WaypointAddressCheckbox, Me.WaypointAltitudeCheckbox, Me.WaypointDisplayModeCheckbox, Me.WaypointSymbolCheckbox, Me.WaypointColorCheckbox, Me.WaypointCommentCheckbox})
        Me.SupportedWaypointFeaturesGroupBox.Location = New System.Drawing.Point(9, 237)
        Me.SupportedWaypointFeaturesGroupBox.Name = "SupportedWaypointFeaturesGroupBox"
        Me.SupportedWaypointFeaturesGroupBox.Size = New System.Drawing.Size(381, 237)
        Me.SupportedWaypointFeaturesGroupBox.TabIndex = 72
        Me.SupportedWaypointFeaturesGroupBox.TabStop = False
        Me.SupportedWaypointFeaturesGroupBox.Text = "Supported Waypoint Features"
        '
        'WaypointDisplayModeComboBox
        '
        Me.WaypointDisplayModeComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.WaypointDisplayModeComboBox.Enabled = False
        Me.WaypointDisplayModeComboBox.Location = New System.Drawing.Point(33, 180)
        Me.WaypointDisplayModeComboBox.Name = "WaypointDisplayModeComboBox"
        Me.WaypointDisplayModeComboBox.Size = New System.Drawing.Size(141, 21)
        Me.WaypointDisplayModeComboBox.Sorted = True
        Me.WaypointDisplayModeComboBox.TabIndex = 15
        '
        'WaypointColorComboBox
        '
        Me.WaypointColorComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.WaypointColorComboBox.Enabled = False
        Me.WaypointColorComboBox.Location = New System.Drawing.Point(33, 129)
        Me.WaypointColorComboBox.Name = "WaypointColorComboBox"
        Me.WaypointColorComboBox.Size = New System.Drawing.Size(141, 21)
        Me.WaypointColorComboBox.Sorted = True
        Me.WaypointColorComboBox.TabIndex = 14
        '
        'WaypointSymbolComboBox
        '
        Me.WaypointSymbolComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.WaypointSymbolComboBox.Enabled = False
        Me.WaypointSymbolComboBox.Location = New System.Drawing.Point(33, 78)
        Me.WaypointSymbolComboBox.Name = "WaypointSymbolComboBox"
        Me.WaypointSymbolComboBox.Size = New System.Drawing.Size(141, 21)
        Me.WaypointSymbolComboBox.Sorted = True
        Me.WaypointSymbolComboBox.TabIndex = 13
        '
        'WaypointIntersectingRoadCheckbox
        '
        Me.WaypointIntersectingRoadCheckbox.AutoCheck = False
        Me.WaypointIntersectingRoadCheckbox.Enabled = False
        Me.WaypointIntersectingRoadCheckbox.Location = New System.Drawing.Point(201, 198)
        Me.WaypointIntersectingRoadCheckbox.Name = "WaypointIntersectingRoadCheckbox"
        Me.WaypointIntersectingRoadCheckbox.Size = New System.Drawing.Size(147, 21)
        Me.WaypointIntersectingRoadCheckbox.TabIndex = 12
        Me.WaypointIntersectingRoadCheckbox.Text = "Intersecting Road"
        '
        'WaypointCountryCheckbox
        '
        Me.WaypointCountryCheckbox.AutoCheck = False
        Me.WaypointCountryCheckbox.Enabled = False
        Me.WaypointCountryCheckbox.Location = New System.Drawing.Point(201, 174)
        Me.WaypointCountryCheckbox.Name = "WaypointCountryCheckbox"
        Me.WaypointCountryCheckbox.Size = New System.Drawing.Size(147, 21)
        Me.WaypointCountryCheckbox.TabIndex = 11
        Me.WaypointCountryCheckbox.Text = "Country"
        '
        'WaypointDepthCheckbox
        '
        Me.WaypointDepthCheckbox.AutoCheck = False
        Me.WaypointDepthCheckbox.Enabled = False
        Me.WaypointDepthCheckbox.Location = New System.Drawing.Point(201, 54)
        Me.WaypointDepthCheckbox.Name = "WaypointDepthCheckbox"
        Me.WaypointDepthCheckbox.Size = New System.Drawing.Size(147, 21)
        Me.WaypointDepthCheckbox.TabIndex = 10
        Me.WaypointDepthCheckbox.Text = "Depth"
        '
        'WaypointFacilityNameCheckbox
        '
        Me.WaypointFacilityNameCheckbox.AutoCheck = False
        Me.WaypointFacilityNameCheckbox.Enabled = False
        Me.WaypointFacilityNameCheckbox.Location = New System.Drawing.Point(201, 102)
        Me.WaypointFacilityNameCheckbox.Name = "WaypointFacilityNameCheckbox"
        Me.WaypointFacilityNameCheckbox.Size = New System.Drawing.Size(147, 21)
        Me.WaypointFacilityNameCheckbox.TabIndex = 9
        Me.WaypointFacilityNameCheckbox.Text = "Facility name"
        '
        'WaypointCityCheckbox
        '
        Me.WaypointCityCheckbox.AutoCheck = False
        Me.WaypointCityCheckbox.Enabled = False
        Me.WaypointCityCheckbox.Location = New System.Drawing.Point(201, 126)
        Me.WaypointCityCheckbox.Name = "WaypointCityCheckbox"
        Me.WaypointCityCheckbox.Size = New System.Drawing.Size(147, 21)
        Me.WaypointCityCheckbox.TabIndex = 8
        Me.WaypointCityCheckbox.Text = "City"
        '
        'WaypointStateCheckbox
        '
        Me.WaypointStateCheckbox.AutoCheck = False
        Me.WaypointStateCheckbox.Enabled = False
        Me.WaypointStateCheckbox.Location = New System.Drawing.Point(201, 150)
        Me.WaypointStateCheckbox.Name = "WaypointStateCheckbox"
        Me.WaypointStateCheckbox.Size = New System.Drawing.Size(147, 21)
        Me.WaypointStateCheckbox.TabIndex = 7
        Me.WaypointStateCheckbox.Text = "State"
        '
        'WaypointAddressCheckbox
        '
        Me.WaypointAddressCheckbox.AutoCheck = False
        Me.WaypointAddressCheckbox.Enabled = False
        Me.WaypointAddressCheckbox.Location = New System.Drawing.Point(201, 78)
        Me.WaypointAddressCheckbox.Name = "WaypointAddressCheckbox"
        Me.WaypointAddressCheckbox.Size = New System.Drawing.Size(147, 21)
        Me.WaypointAddressCheckbox.TabIndex = 6
        Me.WaypointAddressCheckbox.Text = "Address"
        '
        'WaypointAltitudeCheckbox
        '
        Me.WaypointAltitudeCheckbox.AutoCheck = False
        Me.WaypointAltitudeCheckbox.Enabled = False
        Me.WaypointAltitudeCheckbox.Location = New System.Drawing.Point(201, 30)
        Me.WaypointAltitudeCheckbox.Name = "WaypointAltitudeCheckbox"
        Me.WaypointAltitudeCheckbox.Size = New System.Drawing.Size(147, 21)
        Me.WaypointAltitudeCheckbox.TabIndex = 5
        Me.WaypointAltitudeCheckbox.Text = "Altitude"
        '
        'WaypointDisplayModeCheckbox
        '
        Me.WaypointDisplayModeCheckbox.AutoCheck = False
        Me.WaypointDisplayModeCheckbox.Enabled = False
        Me.WaypointDisplayModeCheckbox.Location = New System.Drawing.Point(15, 159)
        Me.WaypointDisplayModeCheckbox.Name = "WaypointDisplayModeCheckbox"
        Me.WaypointDisplayModeCheckbox.Size = New System.Drawing.Size(150, 21)
        Me.WaypointDisplayModeCheckbox.TabIndex = 4
        Me.WaypointDisplayModeCheckbox.Text = "Display Modes (See list):"
        '
        'WaypointSymbolCheckbox
        '
        Me.WaypointSymbolCheckbox.AutoCheck = False
        Me.WaypointSymbolCheckbox.Enabled = False
        Me.WaypointSymbolCheckbox.Location = New System.Drawing.Point(15, 54)
        Me.WaypointSymbolCheckbox.Name = "WaypointSymbolCheckbox"
        Me.WaypointSymbolCheckbox.Size = New System.Drawing.Size(126, 21)
        Me.WaypointSymbolCheckbox.TabIndex = 3
        Me.WaypointSymbolCheckbox.Text = "Symbols (See list):"
        '
        'WaypointColorCheckbox
        '
        Me.WaypointColorCheckbox.AutoCheck = False
        Me.WaypointColorCheckbox.Enabled = False
        Me.WaypointColorCheckbox.Location = New System.Drawing.Point(15, 108)
        Me.WaypointColorCheckbox.Name = "WaypointColorCheckbox"
        Me.WaypointColorCheckbox.Size = New System.Drawing.Size(126, 21)
        Me.WaypointColorCheckbox.TabIndex = 2
        Me.WaypointColorCheckbox.Text = "Colors (See list):"
        '
        'WaypointCommentCheckbox
        '
        Me.WaypointCommentCheckbox.AutoCheck = False
        Me.WaypointCommentCheckbox.Enabled = False
        Me.WaypointCommentCheckbox.Location = New System.Drawing.Point(15, 30)
        Me.WaypointCommentCheckbox.Name = "WaypointCommentCheckbox"
        Me.WaypointCommentCheckbox.Size = New System.Drawing.Size(126, 21)
        Me.WaypointCommentCheckbox.TabIndex = 1
        Me.WaypointCommentCheckbox.Text = "Comment"
        '
        'DeviceInformationGroupBox
        '
        Me.DeviceInformationGroupBox.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.DeviceInformationGroupBox.Controls.AddRange(New System.Windows.Forms.Control() {Me.SupportsRoutes, Me.SupportsTracks, Me.SupportsWaypoints, Me.SupportsRoutesLabel, Me.SupportsTracksLabel, Me.SupportsWaypointsLabel, Me.BatteryLifeLabel, Me.BatteryLife, Me.ProtocolLabel, Me.Protocol, Me.SoftwareVersion, Me.SoftwareVersionLabel, Me.DeviceName, Me.ManufacturerLabel, Me.Manufacturer, Me.DeviceNameLabel, Me.PowerOffButton})
        Me.DeviceInformationGroupBox.Location = New System.Drawing.Point(9, 9)
        Me.DeviceInformationGroupBox.Name = "DeviceInformationGroupBox"
        Me.DeviceInformationGroupBox.Size = New System.Drawing.Size(381, 222)
        Me.DeviceInformationGroupBox.TabIndex = 71
        Me.DeviceInformationGroupBox.TabStop = False
        Me.DeviceInformationGroupBox.Text = "Device Information"
        '
        'SupportsRoutes
        '
        Me.SupportsRoutes.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.SupportsRoutes.Location = New System.Drawing.Point(135, 195)
        Me.SupportsRoutes.Name = "SupportsRoutes"
        Me.SupportsRoutes.Size = New System.Drawing.Size(159, 18)
        Me.SupportsRoutes.TabIndex = 86
        Me.SupportsRoutes.Text = "(Unknown)"
        '
        'SupportsTracks
        '
        Me.SupportsTracks.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.SupportsTracks.Location = New System.Drawing.Point(135, 171)
        Me.SupportsTracks.Name = "SupportsTracks"
        Me.SupportsTracks.Size = New System.Drawing.Size(159, 18)
        Me.SupportsTracks.TabIndex = 85
        Me.SupportsTracks.Text = "(Unknown)"
        '
        'SupportsWaypoints
        '
        Me.SupportsWaypoints.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.SupportsWaypoints.Location = New System.Drawing.Point(135, 147)
        Me.SupportsWaypoints.Name = "SupportsWaypoints"
        Me.SupportsWaypoints.Size = New System.Drawing.Size(159, 18)
        Me.SupportsWaypoints.TabIndex = 84
        Me.SupportsWaypoints.Text = "(Unknown)"
        '
        'SupportsRoutesLabel
        '
        Me.SupportsRoutesLabel.Location = New System.Drawing.Point(15, 195)
        Me.SupportsRoutesLabel.Name = "SupportsRoutesLabel"
        Me.SupportsRoutesLabel.Size = New System.Drawing.Size(114, 18)
        Me.SupportsRoutesLabel.TabIndex = 83
        Me.SupportsRoutesLabel.Text = "Supports Routes?"
        '
        'SupportsTracksLabel
        '
        Me.SupportsTracksLabel.Location = New System.Drawing.Point(15, 171)
        Me.SupportsTracksLabel.Name = "SupportsTracksLabel"
        Me.SupportsTracksLabel.Size = New System.Drawing.Size(114, 18)
        Me.SupportsTracksLabel.TabIndex = 82
        Me.SupportsTracksLabel.Text = "Supports Tracks?"
        '
        'SupportsWaypointsLabel
        '
        Me.SupportsWaypointsLabel.Location = New System.Drawing.Point(15, 147)
        Me.SupportsWaypointsLabel.Name = "SupportsWaypointsLabel"
        Me.SupportsWaypointsLabel.Size = New System.Drawing.Size(114, 18)
        Me.SupportsWaypointsLabel.TabIndex = 81
        Me.SupportsWaypointsLabel.Text = "Supports Waypoints?"
        '
        'BatteryLifeLabel
        '
        Me.BatteryLifeLabel.Location = New System.Drawing.Point(15, 123)
        Me.BatteryLifeLabel.Name = "BatteryLifeLabel"
        Me.BatteryLifeLabel.Size = New System.Drawing.Size(114, 18)
        Me.BatteryLifeLabel.TabIndex = 80
        Me.BatteryLifeLabel.Text = "Battery Life:"
        '
        'BatteryLife
        '
        Me.BatteryLife.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.BatteryLife.Location = New System.Drawing.Point(135, 123)
        Me.BatteryLife.Name = "BatteryLife"
        Me.BatteryLife.Size = New System.Drawing.Size(159, 18)
        Me.BatteryLife.TabIndex = 79
        Me.BatteryLife.Text = "(Unknown)"
        '
        'ProtocolLabel
        '
        Me.ProtocolLabel.Location = New System.Drawing.Point(15, 99)
        Me.ProtocolLabel.Name = "ProtocolLabel"
        Me.ProtocolLabel.Size = New System.Drawing.Size(114, 18)
        Me.ProtocolLabel.TabIndex = 78
        Me.ProtocolLabel.Text = "Protocol:"
        '
        'Protocol
        '
        Me.Protocol.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.Protocol.Location = New System.Drawing.Point(135, 99)
        Me.Protocol.Name = "Protocol"
        Me.Protocol.Size = New System.Drawing.Size(237, 18)
        Me.Protocol.TabIndex = 77
        Me.Protocol.Text = "(Unknown)"
        '
        'SoftwareVersion
        '
        Me.SoftwareVersion.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.SoftwareVersion.Location = New System.Drawing.Point(135, 75)
        Me.SoftwareVersion.Name = "SoftwareVersion"
        Me.SoftwareVersion.Size = New System.Drawing.Size(237, 18)
        Me.SoftwareVersion.TabIndex = 76
        Me.SoftwareVersion.Text = "(Unknown)"
        '
        'SoftwareVersionLabel
        '
        Me.SoftwareVersionLabel.Location = New System.Drawing.Point(15, 75)
        Me.SoftwareVersionLabel.Name = "SoftwareVersionLabel"
        Me.SoftwareVersionLabel.Size = New System.Drawing.Size(114, 18)
        Me.SoftwareVersionLabel.TabIndex = 75
        Me.SoftwareVersionLabel.Text = "Software Version:"
        '
        'DeviceName
        '
        Me.DeviceName.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.DeviceName.Location = New System.Drawing.Point(135, 27)
        Me.DeviceName.Name = "DeviceName"
        Me.DeviceName.Size = New System.Drawing.Size(237, 18)
        Me.DeviceName.TabIndex = 74
        Me.DeviceName.Text = "(Unknown)"
        '
        'ManufacturerLabel
        '
        Me.ManufacturerLabel.Location = New System.Drawing.Point(15, 51)
        Me.ManufacturerLabel.Name = "ManufacturerLabel"
        Me.ManufacturerLabel.Size = New System.Drawing.Size(114, 18)
        Me.ManufacturerLabel.TabIndex = 73
        Me.ManufacturerLabel.Text = "Manufacturer:"
        '
        'Manufacturer
        '
        Me.Manufacturer.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.Manufacturer.Location = New System.Drawing.Point(135, 51)
        Me.Manufacturer.Name = "Manufacturer"
        Me.Manufacturer.Size = New System.Drawing.Size(237, 18)
        Me.Manufacturer.TabIndex = 72
        Me.Manufacturer.Text = "(Unknown)"
        '
        'DeviceNameLabel
        '
        Me.DeviceNameLabel.Location = New System.Drawing.Point(15, 27)
        Me.DeviceNameLabel.Name = "DeviceNameLabel"
        Me.DeviceNameLabel.Size = New System.Drawing.Size(114, 18)
        Me.DeviceNameLabel.TabIndex = 71
        Me.DeviceNameLabel.Text = "Device Name:"
        '
        'PowerOffButton
        '
        Me.PowerOffButton.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.PowerOffButton.Enabled = False
        Me.PowerOffButton.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.PowerOffButton.Location = New System.Drawing.Point(300, 189)
        Me.PowerOffButton.Name = "PowerOffButton"
        Me.PowerOffButton.Size = New System.Drawing.Size(72, 24)
        Me.PowerOffButton.TabIndex = 63
        Me.PowerOffButton.Text = "Power Off"
        '
        'ErrorTabPage
        '
        Me.ErrorTabPage.BackColor = System.Drawing.SystemColors.Control
        Me.ErrorTabPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.GpsExceptionTextBox, Me.GpsExceptionLabel, Me.ParsingExceptionTextBox, Me.ParsingExceptionLabel})
        Me.ErrorTabPage.Location = New System.Drawing.Point(4, 22)
        Me.ErrorTabPage.Name = "ErrorTabPage"
        Me.ErrorTabPage.Size = New System.Drawing.Size(397, 487)
        Me.ErrorTabPage.TabIndex = 5
        Me.ErrorTabPage.Text = "Errors"
        '
        'GpsExceptionTextBox
        '
        Me.GpsExceptionTextBox.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.GpsExceptionTextBox.Location = New System.Drawing.Point(7, 27)
        Me.GpsExceptionTextBox.Multiline = True
        Me.GpsExceptionTextBox.Name = "GpsExceptionTextBox"
        Me.GpsExceptionTextBox.ReadOnly = True
        Me.GpsExceptionTextBox.Size = New System.Drawing.Size(380, 198)
        Me.GpsExceptionTextBox.TabIndex = 13
        Me.GpsExceptionTextBox.Text = ""
        '
        'GpsExceptionLabel
        '
        Me.GpsExceptionLabel.AllowDrop = True
        Me.GpsExceptionLabel.Location = New System.Drawing.Point(7, 9)
        Me.GpsExceptionLabel.Name = "GpsExceptionLabel"
        Me.GpsExceptionLabel.Size = New System.Drawing.Size(188, 15)
        Me.GpsExceptionLabel.TabIndex = 12
        Me.GpsExceptionLabel.Text = "Unexpected exceptions:"
        '
        'ParsingExceptionTextBox
        '
        Me.ParsingExceptionTextBox.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                                Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.ParsingExceptionTextBox.Location = New System.Drawing.Point(9, 249)
        Me.ParsingExceptionTextBox.Multiline = True
        Me.ParsingExceptionTextBox.Name = "ParsingExceptionTextBox"
        Me.ParsingExceptionTextBox.ReadOnly = True
        Me.ParsingExceptionTextBox.Size = New System.Drawing.Size(378, 231)
        Me.ParsingExceptionTextBox.TabIndex = 11
        Me.ParsingExceptionTextBox.Text = ""
        '
        'ParsingExceptionLabel
        '
        Me.ParsingExceptionLabel.AllowDrop = True
        Me.ParsingExceptionLabel.Location = New System.Drawing.Point(9, 231)
        Me.ParsingExceptionLabel.Name = "ParsingExceptionLabel"
        Me.ParsingExceptionLabel.Size = New System.Drawing.Size(171, 15)
        Me.ParsingExceptionLabel.TabIndex = 10
        Me.ParsingExceptionLabel.Text = "Recoverable parsing warnings:"
        '
        'WaypointTabPage
        '
        Me.WaypointTabPage.BackColor = System.Drawing.SystemColors.Control
        Me.WaypointTabPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.RecommendedSteeringDirection, Me.RecommendedSteeringDirectionLabel, Me.CrossTrackError, Me.CrossTrackErrorLabel, Me.DestinationWaypoint, Me.DestinationWaypointLabel, Me.OriginWaypoint, Me.OriginWaypointLabel, Me.WaypointInstructionsLabel, Me.NewWaypointButton, Me.EditWaypointButton, Me.DownloadWaypointButton, Me.WaypointList})
        Me.WaypointTabPage.Location = New System.Drawing.Point(4, 22)
        Me.WaypointTabPage.Name = "WaypointTabPage"
        Me.WaypointTabPage.Size = New System.Drawing.Size(397, 487)
        Me.WaypointTabPage.TabIndex = 3
        Me.WaypointTabPage.Text = "Waypoints"
        '
        'RecommendedSteeringDirection
        '
        Me.RecommendedSteeringDirection.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.RecommendedSteeringDirection.Location = New System.Drawing.Point(132, 84)
        Me.RecommendedSteeringDirection.Name = "RecommendedSteeringDirection"
        Me.RecommendedSteeringDirection.Size = New System.Drawing.Size(255, 18)
        Me.RecommendedSteeringDirection.TabIndex = 20
        Me.RecommendedSteeringDirection.Text = "(Unknown)"
        '
        'RecommendedSteeringDirectionLabel
        '
        Me.RecommendedSteeringDirectionLabel.Location = New System.Drawing.Point(12, 84)
        Me.RecommendedSteeringDirectionLabel.Name = "RecommendedSteeringDirectionLabel"
        Me.RecommendedSteeringDirectionLabel.Size = New System.Drawing.Size(114, 18)
        Me.RecommendedSteeringDirectionLabel.TabIndex = 19
        Me.RecommendedSteeringDirectionLabel.Text = "Steer to correct:"
        '
        'CrossTrackError
        '
        Me.CrossTrackError.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.CrossTrackError.Location = New System.Drawing.Point(132, 60)
        Me.CrossTrackError.Name = "CrossTrackError"
        Me.CrossTrackError.Size = New System.Drawing.Size(255, 18)
        Me.CrossTrackError.TabIndex = 18
        Me.CrossTrackError.Text = "(Unknown)"
        '
        'CrossTrackErrorLabel
        '
        Me.CrossTrackErrorLabel.Location = New System.Drawing.Point(11, 60)
        Me.CrossTrackErrorLabel.Name = "CrossTrackErrorLabel"
        Me.CrossTrackErrorLabel.Size = New System.Drawing.Size(115, 18)
        Me.CrossTrackErrorLabel.TabIndex = 17
        Me.CrossTrackErrorLabel.Text = "Cross-track error:"
        '
        'DestinationWaypoint
        '
        Me.DestinationWaypoint.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.DestinationWaypoint.Location = New System.Drawing.Point(132, 36)
        Me.DestinationWaypoint.Name = "DestinationWaypoint"
        Me.DestinationWaypoint.Size = New System.Drawing.Size(255, 18)
        Me.DestinationWaypoint.TabIndex = 16
        Me.DestinationWaypoint.Text = "(Unknown)"
        '
        'DestinationWaypointLabel
        '
        Me.DestinationWaypointLabel.Location = New System.Drawing.Point(12, 36)
        Me.DestinationWaypointLabel.Name = "DestinationWaypointLabel"
        Me.DestinationWaypointLabel.Size = New System.Drawing.Size(114, 18)
        Me.DestinationWaypointLabel.TabIndex = 15
        Me.DestinationWaypointLabel.Text = "Destination waypoint:"
        '
        'OriginWaypoint
        '
        Me.OriginWaypoint.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.OriginWaypoint.Location = New System.Drawing.Point(132, 12)
        Me.OriginWaypoint.Name = "OriginWaypoint"
        Me.OriginWaypoint.Size = New System.Drawing.Size(255, 18)
        Me.OriginWaypoint.TabIndex = 14
        Me.OriginWaypoint.Text = "(Unknown)"
        '
        'OriginWaypointLabel
        '
        Me.OriginWaypointLabel.Location = New System.Drawing.Point(12, 12)
        Me.OriginWaypointLabel.Name = "OriginWaypointLabel"
        Me.OriginWaypointLabel.Size = New System.Drawing.Size(114, 18)
        Me.OriginWaypointLabel.TabIndex = 7
        Me.OriginWaypointLabel.Text = "Origin waypoint:"
        '
        'WaypointInstructionsLabel
        '
        Me.WaypointInstructionsLabel.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.WaypointInstructionsLabel.Location = New System.Drawing.Point(11, 402)
        Me.WaypointInstructionsLabel.Name = "WaypointInstructionsLabel"
        Me.WaypointInstructionsLabel.Size = New System.Drawing.Size(376, 72)
        Me.WaypointInstructionsLabel.TabIndex = 6
        Me.WaypointInstructionsLabel.Text = "NOTE: Garmin« waypoints are supported, but the device must be manually set to the" & _
        " Garmin« binary protocol and must be connected to at 9600 baud.   Garmin« device" & _
        "s to not have the ability to change protocols programmatically."
        '
        'NewWaypointButton
        '
        Me.NewWaypointButton.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
        Me.NewWaypointButton.Enabled = False
        Me.NewWaypointButton.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.NewWaypointButton.Location = New System.Drawing.Point(162, 348)
        Me.NewWaypointButton.Name = "NewWaypointButton"
        Me.NewWaypointButton.Size = New System.Drawing.Size(69, 24)
        Me.NewWaypointButton.TabIndex = 5
        Me.NewWaypointButton.Text = "New..."
        '
        'EditWaypointButton
        '
        Me.EditWaypointButton.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
        Me.EditWaypointButton.Enabled = False
        Me.EditWaypointButton.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.EditWaypointButton.Location = New System.Drawing.Point(240, 348)
        Me.EditWaypointButton.Name = "EditWaypointButton"
        Me.EditWaypointButton.Size = New System.Drawing.Size(69, 24)
        Me.EditWaypointButton.TabIndex = 4
        Me.EditWaypointButton.Text = "Edit..."
        '
        'DownloadWaypointButton
        '
        Me.DownloadWaypointButton.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
        Me.DownloadWaypointButton.Enabled = False
        Me.DownloadWaypointButton.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DownloadWaypointButton.Location = New System.Drawing.Point(318, 348)
        Me.DownloadWaypointButton.Name = "DownloadWaypointButton"
        Me.DownloadWaypointButton.Size = New System.Drawing.Size(69, 24)
        Me.DownloadWaypointButton.TabIndex = 2
        Me.DownloadWaypointButton.Text = "Refresh"
        '
        'WaypointList
        '
        Me.WaypointList.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                                Or System.Windows.Forms.AnchorStyles.Left) _
                                Or System.Windows.Forms.AnchorStyles.Right)
        Me.WaypointList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader5, Me.ColumnHeader4})
        Me.WaypointList.FullRowSelect = True
        Me.WaypointList.Location = New System.Drawing.Point(9, 111)
        Me.WaypointList.Name = "WaypointList"
        Me.WaypointList.Size = New System.Drawing.Size(378, 228)
        Me.WaypointList.TabIndex = 1
        Me.WaypointList.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader1
        '
        Me.ColumnHeader1.Text = "Name"
        Me.ColumnHeader1.Width = 77
        '
        'ColumnHeader2
        '
        Me.ColumnHeader2.Text = "Latitude"
        Me.ColumnHeader2.Width = 80
        '
        'ColumnHeader3
        '
        Me.ColumnHeader3.Text = "Longitude"
        Me.ColumnHeader3.Width = 81
        '
        'ColumnHeader5
        '
        Me.ColumnHeader5.Text = "Symbol"
        '
        'ColumnHeader4
        '
        Me.ColumnHeader4.Text = "Comment"
        '
        'LocalTimeTimer
        '
        Me.LocalTimeTimer.Enabled = True
        Me.LocalTimeTimer.Interval = 250
        Me.LocalTimeTimer.SynchronizingObject = Me
        '
        'ComPortLabel
        '
        Me.ComPortLabel.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.ComPortLabel.Location = New System.Drawing.Point(423, 57)
        Me.ComPortLabel.Name = "ComPortLabel"
        Me.ComPortLabel.Size = New System.Drawing.Size(69, 15)
        Me.ComPortLabel.TabIndex = 6
        Me.ComPortLabel.Text = "COM Port:"
        '
        'BaudRateLabel
        '
        Me.BaudRateLabel.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.BaudRateLabel.Location = New System.Drawing.Point(423, 9)
        Me.BaudRateLabel.Name = "BaudRateLabel"
        Me.BaudRateLabel.Size = New System.Drawing.Size(69, 15)
        Me.BaudRateLabel.TabIndex = 7
        Me.BaudRateLabel.Text = "Baud Rate:"
        '
        'BaudRateComboBox
        '
        Me.BaudRateComboBox.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.BaudRateComboBox.Items.AddRange(New Object() {"Automatic", "Automatic", "Automatic", "Automatic", "Automatic", "Automatic"})
        Me.BaudRateComboBox.Location = New System.Drawing.Point(423, 27)
        Me.BaudRateComboBox.Name = "BaudRateComboBox"
        Me.BaudRateComboBox.TabIndex = 8
        '
        'ComPortComboBox
        '
        Me.ComPortComboBox.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.ComPortComboBox.Items.AddRange(New Object() {"Automatic", "Automatic", "Automatic", "Automatic", "Automatic", "Automatic"})
        Me.ComPortComboBox.Location = New System.Drawing.Point(423, 75)
        Me.ComPortComboBox.Name = "ComPortComboBox"
        Me.ComPortComboBox.TabIndex = 9
        '
        'GpsReceiver
        '
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(508, 545)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ComPortComboBox, Me.BaudRateComboBox, Me.BaudRateLabel, Me.ComPortLabel, Me.TabControl1, Me.StatusBar, Me.StopButton, Me.StartButton})
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MinimumSize = New System.Drawing.Size(100, 100)
        Me.Name = "Form1"
        Me.Text = "GPS.NET Complete Demonstration"
        Me.TabControl1.ResumeLayout(False)
        Me.RawDataTabPage.ResumeLayout(False)
        Me.PositionTabPage.ResumeLayout(False)
        Me.SatelliteTabPage.ResumeLayout(False)
        Me.DeviceTabPage.ResumeLayout(False)
        Me.SupportedWaypointFeaturesGroupBox.ResumeLayout(False)
        Me.DeviceInformationGroupBox.ResumeLayout(False)
        Me.ErrorTabPage.ResumeLayout(False)
        Me.WaypointTabPage.ResumeLayout(False)
        CType(Me.LocalTimeTimer, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region "  Demonstration of Automatic Device Detection  "

    '  GpsReceiver.NET is able to search for and detect GPS devices connected to the device.
    '  This feature is recommended because it virtually removes the need to train your
    '  users on what serial ports are, and also removes the need to troubleshoot customers
    '  which do not know their correct serial port settings.
    '
    '  To use device detection, set the Receiver.Device.Settings.ComPort property to
    '  ComPort.Automatic.  You can also use the DeviceSettingsDetector class to make your
    '  own device detection features.

    Private Sub GpsReceiver_DeviceDetectionStarted(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.DeviceDetectionStarted
        ' Update the status to show that the azimuth has changed
        UpdateStatusBar("Please wait, detecting GPS devices...")
    End Sub

    Private Sub GpsReceiver_DeviceDetectionCompleted(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.DeviceDetectionCompleted
        ' Update the status to show that the azimuth has changed
        UpdateStatusBar("GPS device detection has completed.")
    End Sub

    Private Sub GpsReceiver_DeviceDetected(ByVal sender As Object, ByVal e As StormSource.Gps.DeviceSettingsEventArgs) Handles GpsReceiver.DeviceDetected
        ' Update the status to show that the azimuth has changed
        UpdateStatusBar("A GPS device was found on " & e.DeviceSettings.ComPort.ToString & "!")
    End Sub
#End Region

#Region "  Starting the GPS Service  "

    Private Sub StartButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartButton.Click
        ' Set the COM port and baud rate
        GpsReceiver.Device.Settings.ComPort = Me.ComPortComboBox.Value
        GpsReceiver.Device.Settings.BaudRate = Me.BaudRateComboBox.Value
        ' NOTE: It's important to add error checking around the Start() method and Enabled property
        Try
            ' Visit http://www.gpsdotnet.com/purchase for pricing and secure online ordering!
            'GpsReceiver.SetLicenseKey("[your key here]")

            ' Start receiving messages
            GpsReceiver.Start()
        Catch ex As UnauthorizedAccessException
            ' The trial screen was cancelled
            MessageBox.Show(ex.ToString, "Cannot Continue Trial", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Catch ex As GpsException
            ' Notify of the error
            MessageBox.Show(ex.ToString, "Unable to Begin GPS Communications", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub

    ' Raised just before a connection attempt is made
    Private Sub GpsReceiver_Connecting(ByVal sender As Object, ByVal e As DeviceSettingsEventArgs) Handles GpsReceiver.Connecting
        UpdateStatusBar("Connecting to GPS device on " & e.DeviceSettings.ComPort.ToString & "...")
    End Sub

    Private Sub GpsReceiver_Connected(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.Connected
        UpdateStatusBar("Connected to GPS device, please wait...")
        ' Enable the Stop button, disable the Start button
        StopButton.Enabled = True
        StartButton.Enabled = False
        BaudRateComboBox.Enabled = False
        ComPortComboBox.Enabled = False
    End Sub

    Private Sub GpsReceiver_Acquiring(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.Acquiring
        UpdateStatusBar("Please wait while satellite information is gathered...")
    End Sub

    ' Raised when the receiver has adjusted the baud rate in an attempt to receive GPS information
    Private Sub GpsReceiver_BaudRateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.BaudRateChanged
        Select Case GpsReceiver.Device.Settings.BaudRate
            Case StormSource.Gps.BaudRate.Baud4800
                Me.BaudRateComboBox.SelectedIndex = 0
            Case StormSource.Gps.BaudRate.Baud9600
                Me.BaudRateComboBox.SelectedIndex = 1
        End Select
    End Sub

    Private Sub GpsReceiver_Timeout(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.Timeout
        MessageBox.Show("The GPS device did not respond to commands, even after attempts to detect the correct connection settings.  The device may be powered off.  Try restarting the Receiver.", "GPS Device Timeout", MessageBoxButtons.OK, MessageBoxIcon.Hand)
    End Sub
#End Region

#Region "  Stopping the GPS Service  "

    Private Sub StopButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopButton.Click
        GpsReceiver.Stop()
    End Sub

    ' Raised just before an attempt is made to disconnect from the GPS device
    Private Sub GpsReceiver_Disconnecting(ByVal sender As Object, ByVal e As DeviceSettingsEventArgs) Handles GpsReceiver.Disconnecting
        UpdateStatusBar("Disconnecting from GPS device...")
    End Sub

    ' Raised when the connection with the device is now closed
    Private Sub GpsReceiver_Disconnected(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.Disconnected
        UpdateStatusBar("Disconnected from GPS device.")
        ' Reset start & stop buttons
        StartButton.Enabled = True
        PowerOffButton.Enabled = False
        DownloadWaypointButton.Enabled = False
        EditWaypointButton.Enabled = False
        NewWaypointButton.Enabled = False
        StopButton.Enabled = False
        BaudRateComboBox.Enabled = True
        ComPortComboBox.Enabled = True
    End Sub

#End Region

#Region "  Demonstration of Motion-Related GPS Events  "

    ' Raised when the current altitude has changed
    Private Sub GpsReceiver_AltitudeChanged(ByVal sender As Object, ByVal e As DistanceEventArgs) Handles GpsReceiver.AltitudeChanged
        UpdateStatusBar("Altitude has changed.")
        ' Are we using the Imperial or Metric system?
        If System.Globalization.RegionInfo.CurrentRegion.IsMetric Then
            ' Use the metric system
            Altitude.Text = GpsReceiver.Altitude.ToMeters.ToString
        Else
            ' Use the Imperial system
            Altitude.Text = GpsReceiver.Altitude.ToFeet.ToString
        End If
    End Sub

    ' Raised when the current direction of travel has changed
    Private Sub GpsReceiver_BearingChanged(ByVal sender As Object, ByVal e As AzimuthEventArgs) Handles GpsReceiver.BearingChanged
        UpdateStatusBar("Bearing has changed.")
        ' Update the bearing and compass direction
        Bearing.Text = GpsReceiver.Bearing.ToString
        ' And show the current bearing represented as a cardinal (compass) direction
        Direction.Text = GpsReceiver.Bearing.CardinalDirection.ToString
    End Sub

    Private Sub GpsReceiver_SpeedChanged(ByVal sender As Object, ByVal e As SpeedEventArgs) Handles GpsReceiver.SpeedChanged
        UpdateStatusBar("Speed has changed to " & e.Speed.ToString)
        ' Are we using the Imperial or Metric system?
        If System.Globalization.RegionInfo.CurrentRegion.IsMetric Then
            ' Use the Metric system
            Speed.Text = GpsReceiver.Speed.ToKilometersPerHour.ToString
        Else
            ' Use the Imperial system
            Speed.Text = GpsReceiver.Speed.ToStatuteMilesPerHour.ToString
        End If
    End Sub

    Private Sub GpsReceiver_PositionChanged(ByVal sender As Object, ByVal e As PositionEventArgs) Handles GpsReceiver.PositionChanged
        UpdateStatusBar("Position has changed.")
        ' Update the current latitude
        Latitude.Text = GpsReceiver.Position.Latitude.ToString
        ' Update the longitude
        Longitude.Text = GpsReceiver.Position.Longitude.ToString
    End Sub

    ' Raised when UTM coordinates have been reported from the GPS device
    Private Sub GpsReceiver_UtmPositionChanged(ByVal sender As Object, ByVal e As StormSource.Gps.UtmPositionEventArgs) Handles GpsReceiver.UtmPositionChanged
        UpdateStatusBar("UTM position has changed.")
        ' Update the current position (in UTM)
        UtmPosition.Text = GpsReceiver.UtmPosition.ToString
    End Sub

#End Region

#Region "  Demonstration of Precision-Related Events  "

    ' Raised when the accuracy of latitude/longitude measurements has changed
    Private Sub GpsReceiver_HorizontalDilutionOfPrecisionChanged(ByVal sender As Object, ByVal e As DilutionOfPrecisionEventArgs) Handles GpsReceiver.HorizontalDilutionOfPrecisionChanged
        UpdateStatusBar("Lat/long accuracy has changed to " & e.DilutionOfPrecision.ToString)
        ' Update the accuracy as it relates to latitude/longitude measurements
        HorizontalDilutionOfPrecision.Text = GpsReceiver.HorizontalDilutionOfPrecision.ToString
    End Sub

    ' Raised when the mean accuracy in the current latitude/longitude has changed
    Private Sub GpsReceiver_MeanDilutionOfPrecisionChanged(ByVal sender As Object, ByVal e As DilutionOfPrecisionEventArgs) Handles GpsReceiver.MeanDilutionOfPrecisionChanged
        UpdateStatusBar("General accuracy has changed to " & e.DilutionOfPrecision.ToString)
        ' Update the overall (mean) accuracy
        MeanDilutionOfPrecision.Text = GpsReceiver.MeanDilutionOfPrecision.ToString
    End Sub

    ' Raised when the confidence level of altitude measurements has changed
    Private Sub GpsReceiver_VerticalDilutionOfPrecisionChanged(ByVal sender As Object, ByVal e As DilutionOfPrecisionEventArgs) Handles GpsReceiver.VerticalDilutionOfPrecisionChanged
        UpdateStatusBar("Altitude accuracy has changed to " & e.DilutionOfPrecision.ToString)
        ' Update the accuracy of altitude measurements
        VerticalDilutionOfPrecision.Text = GpsReceiver.VerticalDilutionOfPrecision.ToString
    End Sub

    Private Sub GpsReceiver_MagneticVariationChanged(ByVal sender As Object, ByVal e As LongitudeEventArgs) Handles GpsReceiver.MagneticVariationChanged
        UpdateStatusBar("Magnetic variation has changed")
        ' Update the magnetic variation
        MagneticVariation.Text = GpsReceiver.MagneticVariation.ToString
    End Sub

    Private Sub GpsReceiver_CrossTrackErrorChanged(ByVal sender As Object, ByVal e As StormSource.Gps.CrossTrackErrorEventArgs) Handles GpsReceiver.CrossTrackErrorChanged
        ' Update the cross-track error
        Me.CrossTrackError.Text = GpsReceiver.CrossTrackError.ToString
        ' Update the recommended steering direction to correct the error
        Me.RecommendedSteeringDirection.Text = GpsReceiver.CrossTrackError.RecommendedSteeringDirection.ToString
    End Sub

#End Region

#Region "  Demonstration of Exception Handling  "
    ' NOTE: This event is raised for errors which occur on separate threads within the GpsReceiver.NET engine.
    '       Use Try..Catch blocks to handle typical GPS errors via the GPSException class.
    Private Sub GpsReceiver_ErrorOccurred(ByVal sender As Object, ByVal e As ErrorEventArgs) Handles GpsReceiver.ErrorOccurred
        ' Add the error to the top of the list
        GpsExceptionTextBox.Text = e.Exception.ToString & vbCrLf & GpsExceptionTextBox.Text
    End Sub

    ' This event is raised when invalid or corrupt data is received by the device.  This event only
    ' serves as a warning that some data was not 100% understood.  These
    ' errors are not typically forwarded to the user.
    Private Sub GpsReceiver_ParsingErrorOccurred(ByVal sender As Object, ByVal e As StormSource.Gps.ParsingErrorEventArgs) Handles GpsReceiver.ParsingErrorOccurred
        ' Add the error to the top of the list
        ParsingExceptionTextBox.Text = e.ParsingException.ToString & vbCrLf & ParsingExceptionTextBox.Text
    End Sub
#End Region

#Region "  Demonstration of Fix-Related Events  "

    ' Raised when the likelihood of obtaining (or sustaining) a fix has changed
    Private Sub GpsReceiver_FixLikelihoodChanged(ByVal sender As Object, ByVal e As StormSource.Gps.FixLikelihoodEventArgs) Handles GpsReceiver.FixLikelihoodChanged
        FixLikelihood.Text = e.FixLikelihood.ToString
        ' If a fix is obtained, fix likelihood indicates how stable the fix is
        If GpsReceiver.IsFixObtained Then
            UpdateStatusBar("Fix stability is now " & e.FixLikelihood.ToString)
        Else
            UpdateStatusBar("Fix likelihood is now " & e.FixLikelihood.ToString)
        End If
    End Sub

    Private Sub GpsReceiver_FixLost(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.FixLost
        UpdateStatusBar("Satellite fix has been lost.")
        ' Update the magnetic variation
        FixObtained.Text = "The fix was lost."
    End Sub

    Private Sub GpsReceiver_FixMethodChanged(ByVal sender As Object, ByVal e As FixMethodEventArgs) Handles GpsReceiver.FixMethodChanged
        UpdateStatusBar("Satellite fix method has changed.")
        ' Update the fix method
        FixMethod.Text = GpsReceiver.FixMethod.ToString
    End Sub

    Private Sub GpsReceiver_FixModeChanged(ByVal sender As Object, ByVal e As FixModeEventArgs) Handles GpsReceiver.FixModeChanged
        UpdateStatusBar("Satellite fix mode has changed.")
        ' Update the magnetic variation
        FixMode.Text = GpsReceiver.FixMode.ToString
    End Sub

    Private Sub GpsReceiver_FixObtained(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.FixObtained
        UpdateStatusBar("Satellite fix has been obtained!")
        ' Update the magnetic variation
        FixObtained.Text = "Fix Obtained"
    End Sub

    Private Sub GpsReceiver_FixQualityChanged(ByVal sender As Object, ByVal e As FixQualityEventArgs) Handles GpsReceiver.FixQualityChanged
        UpdateStatusBar("Satellite fix quality has changed")

        ' Update the magnetic variation
        FixQuality.Text = GpsReceiver.FixQuality.ToString
    End Sub

#End Region

#Region "  Demonstration of Satellite-Related GPS Events  "
    Private Sub GpsReceiver_SatelliteAzimuthChanged(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteAzimuthChanged
        ' Update the list view associated with the specified satellite with the new azimuth
        SatelliteList.Items(e.Satellite.Index).SubItems(2).Text = e.Satellite.Azimuth.ToString
    End Sub

    Private Sub GpsReceiver_SatelliteElevationChanged(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteElevationChanged
        ' Update the list view associated with the specified satellite with the new elevation
        SatelliteList.Items(e.Satellite.Index).SubItems(1).Text = e.Satellite.Elevation.ToString
    End Sub

    Private Sub GpsReceiver_SatelliteFixLost(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteFixLost
        SatelliteList.Items(e.Satellite.Index).BackColor = Color.FromArgb(60, 255, 0, 0)
    End Sub

    Private Sub GpsReceiver_SatelliteFixObtained(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteFixObtained
        SatelliteList.Items(e.Satellite.Index).BackColor = Color.FromArgb(60, 0, 255, 0)
    End Sub

    Private Sub GpsReceiver_SatellitePRCChanged(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatellitePseudoRandomCodeChanged
        SatelliteList.Items(e.Satellite.Index).Text = e.Satellite.PseudoRandomCode
    End Sub

    Private Sub GpsReceiver_SatelliteSignalToNoiseRatioChanged(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteSignalToNoiseRatioChanged
        SatelliteList.Items(e.Satellite.Index).SubItems(3).Text = e.Satellite.SignalToNoiseRatio.ToString & " (" & e.Satellite.SignalToNoiseRatio.Rating.ToString & ")"
    End Sub

    ' Handles three events: SatelliteActiveCountChanged, SatelliteFixCountChanged, SatelliteTrackedCountChanged
    Private Sub GpsReceiver_SatelliteCountChanged(ByVal sender As Object, ByVal e As SatelliteCountEventArgs) Handles GpsReceiver.SatelliteActiveCountChanged, GpsReceiver.SatelliteFixedCountChanged, GpsReceiver.SatelliteTrackedCountChanged
        Select Case e.Type
            Case SatelliteCountType.ActiveCount
                ActiveSatellites.Text = e.Count
            Case SatelliteCountType.FixedCount
                FixedSatellites.Text = e.Count
            Case SatelliteCountType.TrackedCount
                TrackedSatellites.Text = e.Count
        End Select
    End Sub
#End Region

#Region "  Demonstration of Raw Sentence Processing  "

    ' Stores information about the current sentence
    Private CurrentSentence As String
    ' Returns True if the sentence was fully understood
    Private CurrentSentenceType As SentenceType

    ' Adds the specified sentence to the list
    Private Sub AddSentence()
        Select Case CurrentSentenceType
            Case SentenceType.Recognized
                ' The sentence was processed successfully
                RecognizedSentences.Items.Add(CurrentSentence)
                RecognizedSentences.SelectedIndex = RecognizedSentences.Items.Count - 1
                ' Prevent too many lines from being in the list box
                If RecognizedSentences.Items.Count > 50 Then RecognizedSentences.Items.RemoveAt(0)
            Case SentenceType.Unrecognized
                ' The sentence contained some corrupt data, or was proprietary to a specific device
                UnrecognizedSentences.Items.Add(CurrentSentence)
                UnrecognizedSentences.SelectedIndex = UnrecognizedSentences.Items.Count - 1
                ' Prevent too many lines from being in the list box
                If UnrecognizedSentences.Items.Count > 50 Then UnrecognizedSentences.Items.RemoveAt(0)
        End Select
    End Sub

    ' Handles two events: SentenceReceived and UnrecognizedSentenceReceived
    Private Sub GpsReceiver_SentenceReceived(ByVal sender As Object, ByVal e As SentenceEventArgs) Handles GpsReceiver.SentenceReceived, GpsReceiver.UnrecognizedSentenceReceived
        CurrentSentence = e.Sentence
        CurrentSentenceType = e.Type
        'Debug.WriteLine(e.Sentence)
        ' Now add the sentence
        AddSentence()
    End Sub

    ' Raised when someone clicks on the "Parse" button.
    Private Sub ParseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParseButton.Click
        ' Parse the data which was entered into the text box
        Try
            GpsReceiver.Parse(ParsingText.Text)
        Catch ex As Exception
            Stop
        End Try
    End Sub
#End Region

#Region "  Demonstration of GPS device date/time information  "

    ' Updates the form with local date/time information
    Public Sub UpdateLocalTime()
        LocalTime.Text = Now.ToString
    End Sub

    ' Updates the form with GPS device's date/time information
    Public Sub UpdateGpsTime()
        ' NOTE: GPS devices send time in UTC.  We must convert it to local time
        UTCDateTime.Text = GpsReceiver.UtcDateTime.ToLocalTime.ToString
    End Sub

    ' Update the local time to show the comparison between local time and the time obtained from the GPS receiver
    Private Sub LocalTimeTimer_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles LocalTimeTimer.Elapsed
        UpdateLocalTime()
    End Sub

    ' Raised whenever the GPS device reports a new date/time
    ' NOTE: Several devices stop sending this information as soon as a fix is obtained!
    Private Sub GpsReceiver_UTCDateTimeChanged(ByVal sender As Object, ByVal e As DateTimeEventArgs) Handles GpsReceiver.UtcDateTimeChanged
        UpdateStatusBar("GPS date/time has changed.")

        ' Update the magnetic variation
        UpdateGpsTime()
    End Sub
#End Region

#Region "  Demonstration of Waypoints  "

    Private CurrentWaypoint As Waypoint

    ' Raised when the "Refresh" button is clicked on the Waypoints tab
    Private Sub DownloadWaypointButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownloadWaypointButton.Click
        ' Retrieve the latest waypoints from the device (asynchronously)
        Try
            GpsReceiver.Waypoints.Refresh(True)
        Catch ex As GpsException
            MessageBox.Show(ex.ToString, "Unable to Load Waypoints", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End Try
    End Sub

    ' Raised when a new waypoint is selected
    Private Sub WaypointList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WaypointList.SelectedIndexChanged
        ' Enable the Edit button
        EditWaypointButton.Enabled = True
    End Sub

    ' Raised when the "New..." button is clicked on the Waypoints tab
    Private Sub NewWaypointButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewWaypointButton.Click
        ' Make a new waypoint form
        Dim WaypointForm As New NewWaypointForm()
        ' Tell the form what kind of GPS device we're using
        WaypointForm.Device = GpsReceiver.Device
        ' Show the form
        WaypointForm.Show()
    End Sub

    ' Raised when the "Edit..." button is clicked on the Waypoints tab
    Private Sub EditWaypointButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditWaypointButton.Click
        ' Get the waypoint that was clicked
        Dim SelectedWaypoint As Waypoint = GpsReceiver.Waypoints(WaypointList.SelectedItems(0).Text)
        ' Make a new editor form
        Dim EditForm As New EditWaypointForm()
        ' Tell this form to edit the selected waypoint
        EditForm.Waypoint = SelectedWaypoint
        ' Show the form
        EditForm.Show()
    End Sub

    ' Raised when a waypoint is double-clicked
    Private Sub WaypointList_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WaypointList.DoubleClick
        ' Is anything selected?
        If WaypointList.SelectedItems.Count = 0 Then Exit Sub
        ' Open the selected item
        EditWaypointButton_Click(sender, e)
    End Sub

    Private Sub UpdateOriginWaypoint()
        'Me.OriginWaypoint.Text = e.Waypoint.ToString
    End Sub

    Private Sub UpdateDestinationWaypoint()
        'Me.DestinationWaypoint.Text = e.Waypoint.ToString
    End Sub

    Private Sub UpdateClearWaypointList()
        DownloadWaypointButton.Enabled = False
        WaypointList.Items.Clear()
    End Sub

    Private Sub UpdateCompleteWaypointList()
        DownloadWaypointButton.Enabled = True
    End Sub

    ' Adds the specified sentence to the list
    Private Sub AddWaypoint()
        Dim WaypointListItem As ListViewItem
        ' Does this waypoint already exist in the list view?
        If WaypointItemExists(CurrentWaypoint.Name) Then
            ' Yes. Update the existing list view item
            WaypointListItem = GetWaypointItem(CurrentWaypoint.Name)
            WaypointListItem.SubItems(0).Text = CurrentWaypoint.Latitude.ToString
            WaypointListItem.SubItems(1).Text = CurrentWaypoint.Longitude.ToString
            WaypointListItem.SubItems(2).Text = CurrentWaypoint.Symbol.ToString
            WaypointListItem.SubItems(3).Text = CurrentWaypoint.Description
        Else
            ' No. Make a new list view item
            WaypointListItem = WaypointList.Items.Add(CurrentWaypoint.Name)
            WaypointListItem.SubItems.Add(CurrentWaypoint.Latitude.ToString)
            WaypointListItem.SubItems.Add(CurrentWaypoint.Longitude.ToString)
            WaypointListItem.SubItems.Add(CurrentWaypoint.Symbol.ToString)
            WaypointListItem.SubItems.Add(CurrentWaypoint.Description)
        End If
    End Sub

    ' Raised just before the collection of waypoints is re-downloaded
    Private Sub GpsReceiver_WaypointDownloadBegins(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.WaypointDownloadBegins
        UpdateClearWaypointList()
    End Sub

    ' Returns True if the waypoint name currently exists in the WaypointList list view
    Private Function WaypointItemExists(ByVal name As String) As Boolean
        Dim WaypointListViewItem As ListViewItem
        For Each WaypointListViewItem In WaypointList.Items
            If WaypointListViewItem.Text = name Then Return True
        Next
    End Function

    ' Returns the waypoint list item associated with the specified waypoint name
    Private Function GetWaypointItem(ByVal name As String) As ListViewItem
        Dim WaypointListViewItem As ListViewItem
        For Each WaypointListViewItem In WaypointList.Items
            If WaypointListViewItem.Text = name Then Return WaypointListViewItem
        Next
    End Function

    ' Raised when one waypoint has been downloaded from the GPS device
    Private Sub GpsReceiver_WaypointDownloaded(ByVal sender As Object, ByVal e As StormSource.Gps.WaypointEventArgs) Handles GpsReceiver.WaypointDownloaded
        ' Set the current waypoint
        CurrentWaypoint = e.Waypoint
        ' And add it to the List View
        AddWaypoint()
    End Sub

    ' Raised when the last waypoint has been downloaded from the device
    Private Sub GpsReceiver_WaypointDownloadEnds(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.WaypointDownloadEnds
        ' Re-enable the Refresh button
        UpdateCompleteWaypointList()
    End Sub

    Private Sub GpsReceiver_DestinationWaypointArrivalAlarm(ByVal sender As Object, ByVal e As StormSource.Gps.WaypointEventArgs) Handles GpsReceiver.DestinationWaypointArrivalAlarm
        Stop
    End Sub

    Private Sub GpsReceiver_DestinationWaypointChanged(ByVal sender As Object, ByVal e As StormSource.Gps.WaypointEventArgs) Handles GpsReceiver.DestinationWaypointChanged
        ' Update the destination waypoint
        '        Me.Invoke(New WaypointEventHandler(AddressOf UpdateDestinationWaypoint))
    End Sub

    Private Sub GpsReceiver_OriginWaypointChanged(ByVal sender As Object, ByVal e As StormSource.Gps.WaypointEventArgs) Handles GpsReceiver.OriginWaypointChanged
        ' Update the origin waypoint
        '    Me.Invoke(New WaypointEventHandler(AddressOf UpdateOriginWaypoint))
    End Sub
#End Region

#Region "  Demonstration of GPS Device Identification  "

    ' Raised when GpsReceiver.NET is able to identify this device uniquely from any other device
    Private Sub GpsReceiver_DeviceIdentified(ByVal sender As Object, ByVal e As StormSource.Gps.DeviceEventArgs) Handles GpsReceiver.DeviceIdentified
        UpdateDeviceInformation()
    End Sub

    Private Sub GpsReceiver_ProtocolChanged(ByVal sender As Object, ByVal e As StormSource.Gps.DeviceEventArgs) Handles GpsReceiver.ProtocolChanged
        UpdateDeviceInformation()
    End Sub

    Private Sub GpsReceiver_ManufacturerChanged(ByVal sender As Object, ByVal e As StormSource.Gps.DeviceEventArgs) Handles GpsReceiver.ManufacturerChanged
        UpdateDeviceInformation()
    End Sub

    Private Sub GpsReceiver_ProductNameChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.ProductNameChanged
        UpdateDeviceInformation()
    End Sub

    Private Sub GpsReceiver_BatteryLifeChanged(ByVal sender As Object, ByVal e As StormSource.Gps.TimeSpanEventArgs) Handles GpsReceiver.BatteryLifeChanged
        UpdateDeviceInformation()
    End Sub

    ' Updates the form on the form's thread
    Private Sub UpdateDeviceInformation()
        Try
            ' Update device indentification information
            Me.Manufacturer.Text = GpsReceiver.Device.Manufacturer.ToString
            Me.DeviceName.Text = GpsReceiver.Device.Name
            Me.SoftwareVersion.Text = GpsReceiver.Device.SoftwareVersion
            Me.Protocol.Text = GpsReceiver.Device.Protocol.ToString
            Me.BatteryLife.Text = GpsReceiver.Device.BatteryLife.ToString
            ' Update waypoint capabilities
            Me.WaypointAddressCheckbox.Checked = GpsReceiver.Device.SupportsWaypointAddress
            Me.WaypointAltitudeCheckbox.Checked = GpsReceiver.Device.SupportsWaypointAltitude
            Me.WaypointCityCheckbox.Checked = GpsReceiver.Device.SupportsWaypointCity
            Me.WaypointColorCheckbox.Checked = GpsReceiver.Device.SupportsWaypointColor
            Me.WaypointCommentCheckbox.Checked = GpsReceiver.Device.SupportsWaypointComment
            Me.WaypointCountryCheckbox.Checked = GpsReceiver.Device.SupportsWaypointCountry
            Me.WaypointIntersectingRoadCheckbox.Checked = GpsReceiver.Device.SupportsWaypointIntersectingRoad
            Me.WaypointDepthCheckbox.Checked = GpsReceiver.Device.SupportsWaypointDepth
            Me.WaypointDisplayModeCheckbox.Checked = GpsReceiver.Device.SupportsWaypointDisplayMode
            Me.WaypointFacilityNameCheckbox.Checked = GpsReceiver.Device.SupportsWaypointFacility
            Me.WaypointStateCheckbox.Checked = GpsReceiver.Device.SupportsWaypointState
            Me.WaypointSymbolCheckbox.Checked = GpsReceiver.Device.SupportsWaypointSymbol

            ' To make features stand out more, enable/disable the checkbox
            Me.WaypointAddressCheckbox.Enabled = Me.WaypointAddressCheckbox.Checked
            Me.WaypointAltitudeCheckbox.Enabled = Me.WaypointAltitudeCheckbox.Checked
            Me.WaypointCityCheckbox.Enabled = Me.WaypointCityCheckbox.Checked
            Me.WaypointColorCheckbox.Enabled = Me.WaypointColorCheckbox.Checked
            Me.WaypointColorComboBox.Enabled = Me.WaypointColorCheckbox.Checked
            Me.WaypointCommentCheckbox.Enabled = Me.WaypointCommentCheckbox.Checked
            Me.WaypointCountryCheckbox.Enabled = Me.WaypointCountryCheckbox.Checked
            Me.WaypointIntersectingRoadCheckbox.Enabled = Me.WaypointIntersectingRoadCheckbox.Checked
            Me.WaypointDepthCheckbox.Enabled = Me.WaypointDepthCheckbox.Checked
            Me.WaypointDisplayModeCheckbox.Enabled = Me.WaypointDisplayModeCheckbox.Checked
            Me.WaypointDisplayModeComboBox.Enabled = Me.WaypointDisplayModeCheckbox.Checked
            Me.WaypointFacilityNameCheckbox.Enabled = Me.WaypointFacilityNameCheckbox.Checked
            Me.WaypointStateCheckbox.Enabled = Me.WaypointStateCheckbox.Checked
            Me.WaypointSymbolCheckbox.Enabled = Me.WaypointSymbolCheckbox.Checked
            Me.WaypointSymbolComboBox.Enabled = Me.WaypointSymbolCheckbox.Checked
            ' Update available waypoint symbols
            WaypointSymbolComboBox.Items.Clear()
            WaypointSymbolComboBox.Items.AddRange(GpsReceiver.Device.GetSymbols)
            WaypointSymbolComboBox.SelectedIndex = 0
            ' Update available waypoint colors
            WaypointColorComboBox.Items.Clear()
            WaypointColorComboBox.Items.AddRange(GpsReceiver.Device.GetColors)
            WaypointColorComboBox.SelectedIndex = 0
            ' Update available waypoint display modes
            WaypointDisplayModeComboBox.Items.Clear()
            WaypointDisplayModeComboBox.Items.AddRange(GpsReceiver.Device.GetDisplayModes)
            WaypointDisplayModeComboBox.SelectedIndex = 0
            ' Enable/disable features based on the protocol
            Me.PowerOffButton.Enabled = (GpsReceiver.Device.Protocol = StormSource.Gps.Protocol.GarminBinary)
            Me.NewWaypointButton.Enabled = (GpsReceiver.Device.Protocol = StormSource.Gps.Protocol.GarminBinary)
            Me.DownloadWaypointButton.Enabled = (GpsReceiver.Device.Protocol = StormSource.Gps.Protocol.GarminBinary)
        Catch ex As Exception
        End Try
    End Sub

#End Region

#Region "  Demonstration of powering off a GPS device  "
    ' NOTE: Currently, the PowerOff() method is only supported when using the Garmin«
    '       binary protocol. Set your device to use the Garmin protocol before using this method.
    Private Sub PowerOffButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PowerOffButton.Click
        ' Confirm that the device should be powered off
        Select Case MessageBox.Show("When you turn off the GPS device, you will need to turn it back on manually.  Do you still want to power off the device?", "GPS Device Power-Off", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
            Case DialogResult.Yes
                Try
                    ' Try to power off the device.  If the device is not using the Garmin« protocol, this will fail
                    GpsReceiver.Device.PowerOff()
                Catch ex As GpsException
                    ' The power-off failed
                    MessageBox.Show("The device must be set to the Garmin« protocol in order for it to be shut off.  Please change the protocol and try again.", "Unable to Power Off", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                End Try
        End Select
    End Sub
#End Region

#Region "  Demonstration of Viewer Rotation  "

    Private RotateThread As System.Threading.Thread

    Private Sub UpdateRotation()
        Do While True
            ' Increase the rotation angle by half a degree
            SatelliteViewer.Bearing += 0.4
            ' Sleep for 50ms
            RotateThread.Sleep(30)
        Loop
    End Sub

    Private Sub FlickerFreeDemoCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlickerFreeDemoCheckBox.CheckedChanged
        If FlickerFreeDemoCheckBox.Checked Then
            ' Enable the rotation
            RotateThread = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf UpdateRotation))
            RotateThread.Name = "Demo of Rotating Satellite Viewer"
            RotateThread.IsBackground = True
            RotateThread.Start()
        Else
            ' Disable the rotation
            If Not RotateThread Is Nothing Then
                RotateThread.Abort()
                RotateThread = Nothing
            End If
            ' Reset the rotation to zero
            SatelliteViewer.Bearing = GpsReceiver.Bearing.DecimalDegrees
        End If
    End Sub

#End Region

#Region "  Demonstration of Viewer Customization  "

    Private Sub ShowPrcCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowPrcCheckBox.CheckedChanged
        SatelliteViewer.IsSatellitePrcVisible = ShowPrcCheckBox.Checked
    End Sub

    Private Sub ShowCompassCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowCompassCheckBox.CheckedChanged
        SatelliteViewer.IsCompassVisible = ShowCompassCheckBox.Checked
    End Sub
#End Region

#Region "  (Miscellaneous Form Events)  "

    ' Stores information about current activity going on with the GPS device
    Public CurrentStatus As String

    ' Used to update the status bar
    Public Sub UpdateStatusBar(ByVal description As String)
        StatusBar.Text = description
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Bind the SatelliteViewer to the GPS receiver
        SatelliteViewer.Receiver = GpsReceiver
    End Sub

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        ' Stop GPS services
        GpsReceiver.Stop()
        ' Clean up by disposing of resources
        LocalTimeTimer.Dispose()
        GpsReceiver.Dispose()
    End Sub

#End Region

End Class